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A  COMPUTER  SOFTWARE  SERVICES 
FD^  BOX  17660,  ROCHESTER,  NY  14617 
ATARI 'PHONE  [716)  467-9326 

JUST  RELEASED! 

$99.95        "SUPER  ARCHIVER  II"! 

(for  ATARI  1050  drives) 

NOWI COPYS  all  ENHANCED  DENSITY  programs  plus  retains  all  of  the  features 
of  our  World  Famous  SUPER  ARCHIVER!  (see  below).  Allows  you  to  COPY  or 
CREATE  single  or  ENHANCED  density  proteotion  schemes  (including  PHAN- 
TOM SECTORSI).  Completely  automatic;  compatible  with  the  BIT-WRITERI;  the 
ULTIMATE  BACKUP/PROGRAMMING  devicel  Only  $99.95  plus  $4  S/H/l 
NOTICEI  If  you  already  own  a  SUPER  ARCHIVERI,  you  can  upgrade  to  a  SUPER 
ARCHIVER  II  for  only  $29.95  plus  $4  S/H/l  (disl<  only  ■  no  additional  hardware 
required). 

THE 

$69.95        "SUPER  ARCHIVER'T         $69.95 

(for  ATARI  1050  drives) 

The  new  SUPER  ARCHIVER,  obsoletes  all  copying  devices  currently  available 
for  the  ATAR1 10501  It  eliminates  the  need  for  Patches,  PDB  files.  Computer 
Hardware,  etc.  Copies  are  exact  duplicates  of  originals  and  will  run  on  any 
drive;  without  exaggeration,  the  SUPER  ARCHIVER  is  the  most  powerful 
PROGRAMMING/COPYING  device  available  tor  the  10501  Installation  consists 
of  a  plug-in  chip  and  6  simple  solder  connections.  Softwares  included. 
Features  are: 


•  ARCHIVER/HAPPY  ARCHIVER 
COMPATIBLE 

•  BUILT-IN  EDITOR  -  reads,  writes, 
displays  up  to  35  sectorsltracl< 
short 

•  BUILT-IN  CUSTOM  FORMATTER 
up  to  40  sectors/track 

•  BUILT-IN  DISASSEMBLER 

•  BUILT-IN  MAPPER  -  up  to  42  sectors/ 
track 

•  DISPLAYS/COPIES  Double  Density 
HEADERS 

•  AUTOMATIC  FORMAT  LENGTH 
CORRECTION 

•  SIMPLE  INSTALLATION 

The  SUPER  ARCHIVER  is  so  POWERFUL  that  only  programs  we  know  that  can't 
be  copied  are  the  newer  ELECTRONIC  ARTS  and  SYNFILE/SYNCALC  (34  FULL 
sectors/track).  If  you  want  it  ALL  .  . .  buy  the  "BIT-WRITER"I  also  . . .  then  you'll 
be  able  to  copy  even  these  programsl  Only  $69.95  plus  $4  S/H/l. 


•  TRUE  DOUBLE  DENSITY 

•  ULTRA-SPEED  read/write 

•  FULLY  AUTOMATIC  COPYING 

•  SUPPORTS  EXTRA  MEMORY 

•  SCREEN  DUMP  to  printer 

•  TOGGLE  HEX/DEC  DISPLAY 
.  SECTOR  orTRACK  TRACING 

•  AUTOMATIC  DIAGNOSTICS 

•  DISPLAYS  HIDDEN  PROTECTION 

•  ADJUSTABLE/CUSTOM  SKEWING 

•  AUTOMATIC  SPEED 
COMPENSATION 

•  AUTOMATIC/PROGRAMMABLE 
PHANTOM  SECTOR  MAKER 


$79.95 


'BIT-WRITER"I 


$79.95 


The  Super  Archiver  "B1IWR[TK"I  is  capable  of  duplcaling  even  the  "uncopvable" 
EA  and  SYN  series  which  employ  34  FULL  sectors/tracks.  "BIT-WRITER"I  is 
capable  of  reproducing  these  and  FUTURE  protection  schemes  of  non 
physicially  damaged  disks.  PLUG-IN  circuit  boards  and  4  simple  solder 
connections.  The  "SUPER  ARCHIVER  with  "BIT-WRITER"I  is  the  ultimate 
PROGRAMMING/COPYING  device  for  Atari  1050's.  EXACT  DUPLICATES  ot 
originals  are  model  Copies  run  on  ANY  drive.  Must  be  used  with  Super 
Archiver.  Only  S79.95  plus  $4  S/H/l. 


S69.95 


'ULTRA  SPEED  PLUS" 


$69.95 


Imagine  a  universal  XL/XE  Operating  System  so  easy  to  use  that  anyone 
can  operate  it  instantly,  yet  so  versatile  and  powerful  thiat  every  Hacker, 
Programmer  and  Ramdisk  owner  will  wonder  how  they  ever  got  along 
without  it!  Ultra  Speed  Plus  puts  unbelievable  speed  and  convenience  at 
your  fingertips.  Use  ANY  DOS  to  place  an  ULTRA  SPEED  format  on  your  disks, 
boot  any  drive  (1-9)  upon  power-up,  format  your  RAMDISK  in  Double  Density, 
activate  a  built-in  400/800  OS  for  software  compatibility,  plus  dozens  of  other 
features  too  numerous  to  mention!  Below  are  just  a  FEW  features  you'll  find 
in  the  amazing  OS: 


ULTRA  Speed  SIO  for  most 
modHled  drives 
ULTRA  Speed  Is  toggleable 
Boot  directly  from  RAMDISK 

■  Special  timer  circuits  not  re- 
quired tor  1  or  2  Meg  upgrades 

'  Background  colors  cdjustble 
Reverse  use  of  OPTION  i<ey 

'  Cold-start  wittiout  memory  loss 

'  Built-in  tloppv/dlsl<  contlgurallon 
editor  (1-9) 


Built  In  RAMDISK  contigura- 
tlon  editor  (1-9) 
RAMDISK  exactly  duplicates 
floppy  drive  so  sector  copy- 
ing and  sector  editing  are 
now  possible 

Built  In  MINI  Sector  Copter 
Toggle  SCREEN  OFF  for  up  to 
40%  Increase  of  processing 
speed. 
Toggle  Internal  BASIC 


Ram   resident   dlsl<   loader 

grogrom  (MACH  10  menu) 
OUBLE  DENSITY  RAMDISK 
capable 

Entire  MEMORY  test  ttiat  pin- 
points defective  RAM  chiip 
Boot  any  drive  (1-9)  upon 
power-up  or  cold-start 
Supports  memory  upgrades 
up  to  TWO  MEGABYTES 
THREE  Operating  Systems  In 
one  (XLrXE,  400J800,  ULTRA 
SPEED  PLUS) 


$29.95 


"XF551  ENHANCER!" 


$29.95 


The  XF551  Atari  drive  is  a  fine  product  with  one  major  flaw.. .it  writes  to  side 
TWO  of  your  flopping  disl<s  BACKWARDS.  This  causes  read/write 
incornpatlbility  problems  with  all  other  single  sides  drives  made  for  Atari 
such  as  Indus.  Trak,  Rana,  Percom.  Astra,  Atari  1050,  Atari  810,  etc.  Add  the 
XF551  ENHANCER  to  the  new  XF551  drive  and  your  problems  are  over!  This 
device  will  restore  100%  compatibility  while  retaining  original  design 
qualifies  of  Atari's  super  new  drive.  The  XF551  ENHANCER  is  a  MUST  for  all 
XF551  Owners.  Installation  is  simple.  Only  $29.95  plus  $4  S/H/l. 


DEALER/DISTRIBUTOR/USER  GROUP  Discount  availalbe  call  for  Info. 
PHONE  Orders  -  MASTER  CARD,  VISA  IvIAIL  -  Money  Orders,  Ctieol<s 

•SHIPPINGI  Add  S4  for  Stilpping/Handling/insuranoe  within  the  U.S.A. 

UPS  BLUE  LABLE  (2nd  DAY  AIR)  available  for  S3  extra  per  shipment. 

CALL  TODAYI  (716)  467-9326  COMPUTER  SOFTWARE  SERVICES 

9  am  -  5  pm  (EST)  WEEKDAYS  P.O.  Box  17660 

Rochester,  N.Y  14617 
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$39.95  RICHMAN'S  $39.95 

80  Column  Word-Processor! 

Easy  to  use,  very  powerful,  and  NO  ADDITIONAL  HARDWARE  required! 
Worl<s  with  TV  or  Monitorl  This  "DISK  ONLY"  80  Column  Word-Processor  is 
simple  to  use  while  offering  numerous  features  such  as: 


•  Completely  Menu  driven 

•  Self  contained  DOS 

•  Complete  Text  formatting 

•  Built  in  Printer  Drivers 

•  Page  numbering 

•  Justify  and  Endfill 

•  High  Speed  Cursor 

•  Dictionary 

•  80  COLUMNS  ON  THE  SCREEN! 
One  expert  has  compared  40  domestic  and  foreign  word-processors 
and  concluded  that  the  RICHMANS  80  Column  Word-Processor  is  the 
best!  Only  $39.95  plus  $4  S/H/l.  (64K  required). 


•  Insert  and  Delete 

•  Search  Mode 

•  View  only  mode 

•  Memory  Statistics 

•  Alternate  Output 

•  Change  screen  Colors, 
borders,  luminesce 

•  Mouse  compatible 


$39.95 


THE  "QUINTOPUS!" 


$39.95 


The  "QUINTOPUSI"  Is  an  inexpensive  device  that  provides  a  tremendous 
amount  of  convenience  while  eliminating  the  problems  associated  with 
the  endless  "daisy-chaining"  of  peripherals  (eg:  drives,  interfaces,  printers, 
modems,  cassettes,  eta).  The  "QUINTOPUSI"  is  an  I/O  port  expander  that 
converts  a  single  I/O  output/input  into  five  additional  outputs/inputs  Instead 
of  daisy-chaining  all  of  your  peripherals  (which  often  times  results  In  passing 
a  signal  through  30  feet  or  more  of  cable!),  the  "QUINTOPUSI"  allows  each 
device  to  be  connected  directly  to  the  computers  through  only  three  or 
four  feet  of  cable.  This  is  particularly  useful  when  attempting  to  use 
ULTRASPEED  or  WARPSPEED  data  transfer  rates.  The  "QUINTOPUSI"  also 
provides  the  "extra"  I/O  ports  often  needed  to  connect  devices  not  having 
daisy-chaining  capabilities.  Cable  resistance  and  compacitance  are 
greatly  reduced  thereby  significantly  Improving  the  opportunlfy  of 
accurate  data  transfersi  Only  $39.95  plus  $4  S/H/l. 

$59.95  THE  "QUINTOPUS!"  $59.95 

(wifh  SWITCHABLE  PORTS!) 

This  Deluxe  version  ot  the  "QUINTOPUSI"  has  all  ot  the  above  features  with 
the  additional  benefits  of  two  SWITCHABLE  PORTSI  This  means  you  can 
connect  two  computers  to  one  printer  or  two  printers  to  one  computer;  you 
can  switch  In  a  computer/printer  combination  and  while  you're  printing 
out  0  long  document,  switch  in  a  second  computer  to  access  a  modem, 
disk  drive,  cassette  deck,  etcl  Switch  multiple  combinations  of  peripherals 
or  computers  without  the  hassel  or  re-arranging  I/O  cables ....  simply  flip 
a  switch!  Only  $59.95  plus  $4  S/H/l. 


LIMITED  SPECIALS! 


Previously  we  listed  these  products  under  our  FIRESALE  ad  but  many  of  our 
customers  feared  that  the  software  items  might  be  smoke  or  water 
damaged.  They're  NOT!  All  of  the  items  listed  below  are  BRAND  NEW.. .only 
their  literature  or  packing  may  have  slight  cosmetic  imperfections.  All  items 
ore  fully  warrantiedl  Quantities  are  limitedl  No  rainchecksl 


1.  PILL  (wittiout  case) 

2.  SUPER  PILL  (without  case) 

3.  XL  FIX  ROM 

4.  ULTRA  MENU/DOS 

5.  DISKCRACKER  (Newest  version) 

6.  ELECTRONIC  PHANTOM  SECTOR  MAKER  DELUXE 

7.  RICHMANS  80  COLUMN  WORD  PROCESSOR 

8.  MIRACLE  (Disk  only  Version  of  Impossible) 

9.  IMPOSSIBLE  for  800  or  800XL 

10.  XL  MATE 

11.  COMPACTOR 

12.  KLOt>JE  II  (Generic  HAPPY  backup) 

13.  SILENCER 

14.  BLACK  PATCH  (MASTER) 

15.  BLACK  PATCH  DATA  DISKS  1  8i  2 

•Order  5  items  or  more  and  we  will  pay  the  freigfitl 

These  SPECIALS  are  for  C.S.S.  customers  only  -  NO  DEALER  DISCOUNTS  ■  NO  RAINCHECKS 

•  LIMITED  QUANTITIES 
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NEWSROOM  XETEC  FIX 

I  own  an  Atari  130XE,  a  Panasonic  1080i 
printer  and  a  Xetec  Graphix  interface.  This 
setup  worked  fine,  until  I  got  Newsroom 
from  Springboard  Software.  For  some  rea- 
son, I  got  a  lot  of  Strange  characters  on 
my  page  when  1  tried  to  create  a  newslet- 
ter. Springboard's  customer  support  was 
unable  to  help  me,  but  with  the  help  of 
a  friend  and  a  lot  of  experimentation  a  fix 
was  found. 

Set  the  Newsroom  printer  driver  to  Ep- 
son MX-70  and  set  the  Xetec  DIP  switch 
to  the  ON  position.  The  program  will  run 
fauldessly.  Just  don't  forget  to  reset  the  DIP 
switch  when  you're  done! 

Robert  Shutts 
Joliet,  IL 

TALKING  TODDLE 
AUTOLOAD 

My  kids  just  love  Talking  Toddle  Type  (Oc- 
tober 1988  disk  bonus).  To  speed  up  the 
fun,  those  with  a  130XE  and  SpartaDOS 
3. 2  can  AUTOLOAD  the  .SPK  speech  files 
with  a  STARTURBAT  file.  Put  TOD- 
DLE.EXE,  all  the  .SPK  files,  and  the  Spar- 
taDOS system  file  RD.COM  on  a  Spar- 
taDOS formatted  disk  with  X32D.DOS  on 
it.  Create  a  file  named  STARTURBAT  on 
the  same  disk  containing  the  following 
commands: 

BASIC  OFF 

KEY  OFF 

RD  D3: 

COPYDl:*.SPKD3: 

TODDLE.EXE 

This  batch  file  turns  off  internal  BASIC 
so  you  don't  have  to  hold  down  [OP- 
TION] .  The  keyboard  buffer  is  also  turned 
off,  since  kids  usually  press  the  keys  longer 
than  adults.  An  internal  RAMDISK 
named  D3 :  is  created  to  store  the  .SPK  files 
which  are  subseqently  loaded  into  mem- 
ory. Finally,  die  assembly  language  pro- 
gram is  loaded  and  executed. 

When  the  initial  Toddle  Type  selection 
menu  appears,  [SELECT]  the  Speech  Drive 
and  [3].  Press  [ST\RT]  and  away  your  kids 
go.  My  next  project  is  to  figure  how  to 


make  Drive  3  the  default  Speech  Drive  in 
the  assembly  language  program  and  elim- 
inate the  need  to  [SELECT]  the  correct 
Speech  Drive  and  press  [START].  Any  sug- 
gestions? 

Rick  Reaser 
Pacific  Grove,  CA 

Any  SpartaDOS  users  out  there  have  some 
suggestions?— AW\C  ED 


WONDERFUL 

I  think  it  is  wonderful  that  you  have 
decided  to  give  more  space  to  the  Atari 
8-bit  computers.  It  is  wonderful  that  some- 
body stiU  cares,  and  it  is  with  gratitude  that 
I  am  subscribing  for  the  disk  issue.  I  hope 
I  am  helping  you  in  your  endeavor  to  sup- 
port the  Atari  8-bit.  Thanks  for  the  many 
years  of  support. 

Nathan  Block 

St.  Louis  Park,  MN 

You've  given  us  the  best  help  we  can  ask 
for.  As  8-bit  advertisers  drift  away,  sub- 
scribers like  you  enable  us  to  keep  on  do- 
ing the  job  of  fighting  to  keep  the  8-bit 
Atari  a/we.— ANTIC  ED 


EXTRA  130XE  MEMORY 

I  am  trying  to  use  the  extra  memory  on 
my  130XE  to  run  a  long  program,  and  my 
lack  of  success  has  me  confused.  How  can 
I  load  my  program  and  data  into  the  extra 
memory? 

Norman  Hall 
Allentown,  PA 

Tivo  articles  from  Antic  back  issues  might 
be  of  assistance.  130XE:  How  Atari's  New 
8-bit  Does  It  (July  1985)  lists  some  of  the 
specifications  for  the  extended  RAM.  In 
130XE  Memory  Management  (November 
1985),  Ian  Chadwick,  author  of  the  in- 
valuable resource  "Mapping  the  Atari" 
(COMPUTE!  Publications)  tells  how  to 
use  that  extra  64K,  and  includes  a  type- 
in  BASIC  tutorial  program.— AH1\C  ED 
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POLYHEDRON  PRINTOUTS 

I  wrote  you  to  see  if  there  was  a  screen 
dump  program  that  would  produce  a  re- 
verse printout  (black  on  a  white  back- 
ground) of  screens  generated  by  Poly- 
hedron Designer  (October  1988).  A  few 
days  later  I  remembered  your  December 
1987  Disk  Bonus,  Antic  Publisher.  I  ran 
Antic  Publisher,  loaded  a  PICTURE.PIC  file 
from  Polyhedron  Designer,  and  obtained 
a  black-on-white  image  I  could  edit  with 
the  Graphic  Editor  Another  case  where 
a  writer  answered  his  own  question! 
Theodore  Winkel 
Madison,  IN 


POLYHEDRON  PROBLEMS 

I  just  finished  booting  the  October  1988 
Antic  monthly  disk.  Talking  Toddle  Type 
is  great  and  The  Seven  Skulls  was  a  chal- 
lenge. Having  worked  as  a  Russian  linguist 
for  a  number  of  years,  I  really  enjoyed  the 
Quizzer  program.  Imagine  my  dismay 
when  Polyhedron  Designer  didn't  work. 
It  split  the  design  and  put  it  all  over  the 
screen.  What  happened? 

Keith  Hansen 
Warrensburg,  MO 

It's  impossible  to  tell  what  went  wrong 
just fiom  your  letter  The  most  likely  prob- 
lem is  that  the  parameters  were  entered 
incorrectly  and  resulted  in  an  object  too 
big  to  show  on  screen.  Try  using  the 
parameters  shown  in  the  screen  shot  on 
page  29 — the  results  should  be  the  same 
as  in  the  picture.— Am\C  ED 


PAPERCLIP  TRANSPLANTS 

Dr.  Brilliant  stated  in  his  article  on  mem- 
ory upgrades  (November  1988)  that  the 
only  use  for  expanded  memory  on  a 
130XE  would  be  a  large  RAMdisk.  Right 
at  this  moment  I  am  using  the  130XE  ver- 
sion of  Paperclip  on  a  130XE  beefed  up 
to  320K.  (I  have  the  upgrade  by  Scott 


Peterson.)  With  my  expanded  memory  I 
have  128K  of  space  in  which  to  type  my 
document.  I  would  say  this  qualifies 
as  a  commercial  program  that  uses  the 
extra  RAM. 

Brent  Fisher 
Jackson,  MI 

Since  PaperClip  is  not  currently  available 
commercially,  this  doesn't  completely  dis- 
prove Dr  Brilliant's  assertion.  Still,  there 
may  be  other  programs  that  utilize  the 
extra  RAM.  We'd  be  glad  to  hear  from 
readers  who  use  any  such  programs.  — 
ANTIC  ED 


UP  TO  ATARI 

I  was  pleased  to  read  in  your  October  1988 
Editorial  that  you  will  be  increasing  the 
amount  of  space  dedicated  to  the  8-bit. 
I  would  also  like  to  see  more  software 
offered  in  The  Catalog.  At  the  end  of  the 
editorial  you  said,  "What  happens  is 
largely  up  to  you — the  Atari  8-bit  user."  I 
would  like  to  take  issue  with  that 
statement — I  beUeve  that  is  is  up  to  Atari 
Corp.  to  get  off  their  duff  and  support  us 
8-bit  users.  If  Atari  would  advertise  and 
come  out  with  an  inexpensive  hard  drive, 
maybe  they  could  compete. 
Ross  Himes 
Chesterton,  IN 

As  announced  in  the  January  1989 
Antic,  we're  working  on  getting  more  8- 
bit products  into  The  Catalog.  For  us,  a 
lot  does  depend  on  you  users.  We're  in 
business,  and  if  8-bit  products  don 't  sell, 
we  can't  keep  offering  them.  So  eji- 
courage  your  friends  and  local  dealers 
to  buy  Antic  8-bit  Software!— kH^\Z  ED 


NOISY  1050 


head  moves  back  and  forth.  Voila!  A  quiet 
1050!  I've  been  doing  this  for  three  years 
now  and  have  never  had  a  problem.  Just 
remember  to  use  a  very  small  amount,  so 
oil  does  not  get  on  the  head  itself. 
Michael  Seaman 
Willowdale,  Ontario 
Canada 

As  always,  please  keep  in  mind  that  open- 
ing the  drive  voids  any  warranty  you 
might  have  left.  Antic  takes  no  responsi- 
bility for  results  of  home  repairs  or  hard- 
ware modifications.— M^'WC  ED 


DESPERATELY  SEEKING 
RECORDER 

I  am  writing  to  you  after  many  attempts 
to  locate  an  Atari  1010  Cassette  Recorder 
It  seems  the  1010  Recorder  is  out  of  pro- 
duction. Is  there  any  way  I  can  hook  up 
my  audio  cassette  to  my  Atari  800XL  so 
I  can  retrieve  data  and  programs  stored  on 
cassette? 

John  Holland 
Coliunbia,  SC 

Unfortunately,  you  can't  use  an  audio 
cassette  with  your  800XL.  Your  best  bet 
is  probably  to  get  in  touch  with  a  local 
users  group,  where  someone  probably 
can  get  you  access  to  a  1010.  One  group 
in  your  area  is:  GRACE  (Greenville 
Regional  Atari  Computer  Enthusiasts), 
18  Bedford  Lane,  Taylors  SC  29687.— 
ANTIC  ED 


I've  read  many  complaints  of  noisy  Atari 
1050  disk  drives.  To  fix  the  problem,  take 
off  the  cover  and  put  a  very  light  drop  of 
fme  machine  oil  (sewing  machine  oil  is  ex- 
cellent) on  the  metal  runners  on  which  the 


Antic  welcomes  your  feedback,  but 
we  regret  that  the  large  volume  of  mail 
makes  it  impossible  for  the  Editors  to 
reply  to  everyone.  Although  we  do 
respond  to  as  much  reader  correspon- 
dence as  time  permits,  our  highest  pri- 
ority must  be  to  publish  I/O  answers 
to  questions  that  are  meaningful  to  a 
substantial  number  of  readers. 

Send  letters  to:  Antic  I/O  Board, 
544  Second  Street,  San  Francisco, 
CA  94107. 


American  Techna- Vision 


For  Orders  Only  - 1-800-551-9995 
CA.  Orders  /  Information  415-352-3787 


"Providing  8  Bit  support  witti  one  ot  the  Worlds 
largest  inventories  of  Atari  replacement  parts" 

•  No  surcharge  for  ViSA/MasterCard 

•  Your  card  is  not  charged  until  we  ship 


800  4  PIECE  BOARD  SET 

Includes  Main  Board,  Power  Supply 
Assembly,  CPU  Module  and  10K 
Revision  B  Operating  System  NAxlule. 
All  boards  are  new,  tested  and  complete 
with  all  components.    SOO50 
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WORD  PROCESSORS 

■  Paperclip  (Disk) $29.95 

•  AtariWriter  (Cart.) $29.95 

•  Bank  Street  Writer  (D)  .  $17.50 

•  Cuts.  Paste  (Disk) $17.50 

•  Letter  Wizard  (Disk)  .  .  .  $17.50 


FLAT  SERVICE  RATES 

1050  DISK  DRIVE $75.00 

810  DISK  DRIVE $69.50 

850  INTERFACE $39.50 

800  COMPUTER $49.50 

1200XL  COMPUTER $49.50 

F-lal  rales  include  Paris  &  Labor.  60  day 
warranty.  Include  $7.00  shipping  &  insurance 


800/400  MODULES 

NEW  PARTS  COMPLETE  WITH  IC'S 
en  •  CX853  16K  Ram  Module 
■-"-'•  800  Main  Board 

•800/400  CPU  with  GTI A 
•80010K"B"O.S.Modute 

•  400  Main  Board 

•  400  Power  Supply  Board 


$ 
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EACH 


800  Power  Supply  Board  $14.50 
INTEGRATED  CIRCUITS 

•CPU CO14806 

•  POKEY C012294 

•PIA C014795 

•GTIA CO14805 

•ANTIC C012296 

•CPU CO10745 

•  PIA CO10750 

•CPU C014377 

•  DELAY CO60472 

•2600TIA..    CO10444 

•  PIA C012298 

•CPU 6507 

•  PIA 6532 

•RAM 6810 

•  CPU 6502B 


$/50 

EACH 


C061598  $20.00 

C021697  $15.00 

C061991  $15.00 

C025953  $9.50 

1050  Rom  $13.50 

5713  ....  $5.25 

C061618  $20.00 

C024947  $15.00 

1050  MECHANISM 

Factory  fresh  TANDON  mechs. 
make  difficult  repairs  a  snap.  Units 
are  complete  with  Head,  Stepper, 
Spindle  motor,  belt  etc.  Just  plug  in, 
no  difficult  alignments  or  adjust- 
ments requirecT      $  yi  -7  en 


VISICALC 

SPREADSHEET 

Unleash  the  conputing  power  j  j  r\95 1 
o(  your  8  bit  Atari  withVisicalc.       [  y       ' 
CofTpute  everything  from  home      q|S[<; 
finances  to  high  powered  linan- 
cia)  projecliors.  Hundreds  d  uses. 


XL  40  PIN  LSI  CHIP  SET 

A  Complete  set  of  40  Pin  Large 
Scale  Integrated  Circuits  for  your 
800XL,  600XL  or  1200XL  computer. 
Great  lor  quick  repairsl  Set 
contains  one  each  of  the  -t,  _j  ^^  qc  I 
following:  CPU,  GTIA,      $'1f-\='^l 
ANTIC,  PIA  AND  POKEY.  '^ 


REPAIR  MANUALS 

SAMS  Service  Manuals  for  the 
following  units  contain  schematics, 
parts  listings,  labelled  photographs 
showing  the  location  of 
checkpoints  and  morel  A  special 
section  gives  oscilloscope  and 
logic  probe  readings  allowing  you 
to  narrow  the  malfunction  down  to 
a  specific  chip  or  transistor! 
800,  800XL,  130XE,  400,  1025 

and  1050 $19.50  each 

520ST  Service  Manual.  $37.50 

MISC.  HARDWARE 

13  Pin  Serial  I/O  Cable  ....  $5.95 
1050  Track  0  Sensor . . .  $8.50 
2793  1050  Controller  IC  .  .  $19.50 
Paddle  Controllers  (Pair)  . .  $6.50 
400  3  Piece  Board  Set . . .  $19.50 
Fastchip  for  800/400  .  .  $15.50 
Animation  Station  ....  $74.95 
Rambo  XL  w/o  Ram  IC's  $39.95 
Supra24O0  Baud  Modem..  $15750 

ACE  Joystick $7.95 

850  or  PR  Modem  Cable  $14.50 
850  or  PR  Printer  Cable   $1450 

Printer  Interface $39.95 

I/O  13  Pin  PC  mount . .  .     $4.50 

I/O  13  Pin  Plug  Kit $4.50 

ST  6'  Drive  Cable $14.00 

810  Door  Latch  Assy.  . .   $10.00 

1027  Transformer CALL 

U.S.  Doubler $29.95 

ST  Monitor  Connector . . .  $5.50 
ST  Driw  connector  plug.  . .  $6.50 
ST  to  5/14 "  Drive  Cable     $23.95 


TOWER  PACKS 

Exact  replacement  trans-  ^^    .     -1-^1 

former  lor  600/400.  1050  $  1  /l  O  U 
810,  1200XL,  860,  XF561  &  I  '"T 

1020  unils.  Part  #0017945. 

XL/XE  SUPPLY 

Power  Pak  lor  8O0XL,6OOXL    $  O  COO  I 
130XE,  66XE  &  XE  Game.    ^    >•-«"-'>-' 1 
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THE  BOOKEEPER 
AND  CX85  KEYPAD 

You  get  both  Atari's  8  bit 
professional  bookeeping      $  "IQ^Sl 
system  and  the  handy  CX85        '  ^ 
numeric  keypad  for  one  low     4  DISK 
price.  Packers  factay  seaJed.      SET 


KEYBOARDS 

New  and  complete  subassembly. 
Easy  internal  replacement. 

130XE/65XE    $35.00 

800 $40.00 

800X1 $29.50 

400 $12.50 


COMPUTER  BOOKS 

Atari  Playground  Workbook  $7.95 

Hackerbook $5.00 

Inside  Atari  Basic I^-^^ 

Atari  Basic  Ref.  manual.  $5.00 

How  to  6502  Program. . .  $5.00 

Programmers  Ret.  Guide  $14.95 

Basic-Faster  SBener . . .  $22,95 
Assembly  Language  Guide  $21.95 

XE  Users  Handbook  ....  $21.95 

XL  Users  Handbook  ....  $2 1.95 

Advanced  Programming  $19.50 

Write  Your  Own  Games.  $5.00 

IVlapping  the  Atari $18.50 

SERIAL  I/O  CABLE 

High  Quality,  13Pin $5.95 

MAC-65  CARTRIDGE 

6502  Machine  language  Macro- 
Assembler.  First  class  tool  for 
serious  programmers. . .    $59.95 

ATARI  850  INTERFACE 

Bare  PC  Board  with  parts  list  and 

crystal $7.50 

Board  &  all  plug  in  IC's  . . .  $39.50 

PR:  CONNECTION 

Serial' Parallel  Interface  for  connecting 
modems  and  printers $65.00 

BASIC  CARTRIDGE 

Exact  replacement  for 
800/400/ 1200XL $15.00 

EPROM  CARTRIDGES 

16K  Eprom  Board  with  case.  Specify 

dual  2764  or  single  27128  style.  Gold 

,  contacts $6.95 


•  SOFTWARE  • 

Cartridges  for  all  8  bit  Atari  computers 

luflllipede  Cartridge $10.00 

AtariWriter  Cart $29.95 

Pac-Man  Cartridge $4.00 

Deluxe  Invaders  Cart $4.00 

Journey  to  the  Planets  Cart.  $4.00 

Donkey  Kong  Cart $5.00 

Crossfire  Cartridge $5.00 

Atlantis  Cart $5.00 

Q'Bert  Cartridge $10.00 

Choplifter  Cart J  10.00 

Zone  Ranger  Cart $12.50 

Silicon  Warrior  Cart $12.50 

Learning  with  Leeper  Cart.  $12.50 

Up  For  Grabs  Cart $12.50 

Eastern  Front  Cart $10.00 

PILOT  Language  Cart $17.50 

Edt/AsmCart.  w/o  man. .  $15.00 

ACTION  O.S.S $59.95 

BASIC  XE  O.S.S $59.95 

MAC-65  O.S.S $59.95 

DISK  SOFTWARE 

Paperclip $29.95 

Visicalc  Spreadsheet  . . .  $19.95 
Bookeeper  *  CX85  Keypad  $  19.95 
Mission  Asteroid  Disk.  ..  .     $4.00 

Frogger  Disk $5.00 

Fort  Apocalypse  Disk  ....     $5.00 

Spider  Man  Disk $5.00 

The  Hulk  Adventure  Disk  .  .  $5.00 
Wizard  &  The  Princess  . . .  $5.00 
Ulysses  S  Golden  Fleece  $5.00 
Human  Torch  &  The  Thing  $5.00 
Musical  Pilot  Ed.  Disk  ....     $6.00 

Con'putalion  Disk $5.00 

Debug  Childware  Disk.  ..  .    $5.00 

Crystal  Raider  Disk $5.00 

Dispatch  Rider  Disk $5.00 

Master  Chess  Disk $5.00 

Molocule  Man  Disk $5.00 

Speed  King  Disk $5.00 

Last  V-8  Disk $5.00 

Fractions  Tutorial  Disk  ....  $5.00 

Reading  Skills  Disk $5.00 

Chambers/Zorp  Disk $5.00 

Pathfinder  Disk $5.00 

Match  Racer  Disk $5.00 

Encounter/Ouestar  Disk  .  .  .  $5.00 
Wombats  Adventure  (D)  $5.00 
Sports  Spectacular  Disk  .  .    $7.50 

Stratos  Disk $7.50 

Clowns  S  Balloons  Disk  . .  .  $7.50 
Fun  in  Learning  Disk  ....  $7.50 
Fun  in  Numbers  Disk  ....  $7.50 
Honey  Craze  Math  (D)  .  .  .     $7.50 

Dig  Dug  Disk $9.95 

Murder  on  the  Zinfendorl      $10.00 

DropZone  Disk $12.50 

MoonMist  Adventure  (D)       $14.95 

Mind  Shadow  (D) $14.95 

Bank  Street  Writer $17.60 

Master  Typing  Tutor  ...  .  $15.00 
Cut  &  Paste  W.P.  Disk  .. .    $17.50 

The  Factory  Disk $20.00 

SpartaDOS  Const.  Set  . .  .  $39.60 

DATASOFT  DISKS 

Zorro  Disk $9.95 

Saracen  Disk $9.96 

Gunslinger  Disk  XL/XE         $9.96 

Crosscheck  Disk $12.60 

Mercenary  Disk $12.50 

The  Goonies  Disk $12.60 

Conan  Disk $12.60 

Never  Ending  Story  (64K)  $12.60 

221  Baker  Street  (54K)  .  .  $17.50 

Letter  Wizard  W.P.  (32K)  $17.60 

kBasic  Compiler  lor  800  $29.96j 


CALL  TOLL  FREE 
1-800-551-9995 

IN  CALIF.  OR  OUTSIDE  U.S. 
CALL  415-352-3787 


AMERICAN  TECHNA-VISION 


,  San  Leantdro,  Ga.  94579 
San  Leandro,  Ga.  94577 


Mail  Order:   15338  Inverness  St. 
Repair  Center:    2098  Pike  Ave., 

Terms:  NO  MINIMUM  ORDER.  We  accept  money  orders,  personal  checks  or 
C.O.D.s.  VISA,  Master/Card  okay.  Credit  cards  restricted  to  orders  over  $20.00. 
No  personal  checks  on  C.O.D.  -  Shipping:  $4.00  shipping  and  handling  on  orders 
under  $150.00.  Add  $2.25  for  C.O.D.  orders.  In  Canada  total  $6.00  for  shipping  and 
handling.  Foreign  shipping  extra.  Calif,  residents  include  7%  sales  tax.  All  items 
guaranteed  30  days  from  date  of  delivery.  All  sales  final.. 

Prices  ajbjecl  to  change  wliiout  notce.  Send  SASE  la  Iree  price  list  Atari  is  a  rog  trademark  d  Atari  Cap. 


SUPER  DISK  BONUS 


Escape  From  Dispozon 

Antic's  biggest  text  adventure  ever. 
Program  by  Kevin  Sherratt 


Escape  from  Dispozon,  by  Kevin 
Sherratt,  is  a  text  adventure  so 
good  that  we  just  had  to  bring 
it  to  you — even  though  it's  much  too 
long  to  even  fit  on  one  side  of  a  disk! 
For  the  first  time,  Antic  is  publish- 
ing a  two-part  Super  Disk  Bonus. 
Part  I  takes  up  the  entire  Side  B  of 
this  month's  disk.  The  conclusion, 
Part  II,  will  take  up  the  entire  Side 
B  of  the  April  1988  Antic  Disk  next 
month.  (No  April  fooling,  folks!) 

Here's  a  sample  of  what  the  dan- 
gerous but  quirky  planet  of  Dis- 
pozon is  like: 


IF  ONLY.  .  . 

If  only  your  name  wasn't  Havil- 
fad.  No  one  takes  a  star  pilot  named 
Havilfad  seriously.  All  right.  .  .so 
you  had  one  little  mishap  and  de- 
stroyed your  ship,  the  Andromeda 
Doria.  Mistakes  happen!  There  was 
a  planet  nearby  anyway,  and  you 
managed  to  get  into  the  lifepod. 

If  only  the  lifepod  hadn't  ejected 
you  and  melted  in  entry.  Well,  even 
so,  it's  not  as  though  you're  the  first 
space  pilot  to  be  marooned  on  an 
unknown  planet. 


If  only  the  planet  hadn't  turned 
out  to  be  Dispozon.  Now  really!  A 
planet-fill  site?  A  world  covered  in 
ten  trillion  cubic  miles  of  trash? 
Where's  the  justice?  But  you're  a 
survivor 

If  only  Iggy  weren't  a  survivor, 
too.  Oh,  you've  got  nothing  against 
companion  droids.  In  situations  like 
this,  companion  droids  are  a  pilot's 
eyes  and  hands.  They're  helpful  and 
friendly,  unassuming,  selfless  and 
obedient,  following  every  command 
to  the  letter 

If  only  Iggy  was  like  that.  .  . 
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BONUS  GAME 


You've  heard  of  landfill  sites? 
Well,  Dispozon  is  a  planetfill,  a 
world-sized  garbage  dump — and 
you've  had  the  bad  taste  to  crash 
there.  You  and  Iggy,  your  compan- 
ion droid,  are  stranded  on  an  Island 
of  rubbish  in  a  sea  of  sewage.  This 
isn't  a  healthy  environment  for  man 
or  robot.  The  dangers  of  Dispozon 
are  many  and  varied,  from  kittens 
and  crabs  to  a  crazed  old  coot. 

You,  Havilfad,  must  find  a  way 
to  escape  the  slimy,  greasy,  junk- 
filled  shores  of  Dispozon — before 
you  are  fatally  poisoned  by  the  toxic 
smog.  Winning  the  game  involves 
finding  and  refitting  an  old  aban- 
doned spaceship.  Unfortunately,  the 
only  way  to  accomplish  this  is 
through  the  commands  you  give  to 
Iggy,  your  not-so-obedient  robot 
companion. 

Iggy  will  insult  you,  question  your 
orders  and  tell  you  things  you  really 
don't  want  to  know.  When  you  get 
into  trouble,  you  can  always  count 
on  Iggy.  He'll  always  say  the  helpful 
thing  in  a  sticky  situation,  such  as, 
"The  crabs  have  cut  us  off!  We'll  die 
here.  Oh,  it's  all  right  for  you.  You're 
totally  lacking  in  oral  hygiene  and 
you  have  hideously  poor  posture.  All 
in  all,  I'd  say  you  were  fortunate  to 
end  your  life  as  an  entree  for  these 
mobile  seafood  buffets.  But  what 
about  ME?" 

Longtime  text  adventure  players 
will  undoubtedly  find  something 
familiar  about  Iggy,  the  self-centered 
companion  droid.  One  of  the  most 
popular  Infocom  adventure  classics 
was  "Planetfall,"  featuring  the  weU- 
meaning  but  klutzy  robot,  Floyd. 
Many  players  shed  real  tears  when 
Floyd  apparently  sacrificed  his  life 
to  save  the  day.  And  many  reviewers 
hailed  Floyd  as  the  first  truly  well- 
rounded  character  in  interactive  fic- 
tion. Escape  From  Dispozon  recalls 
much  of  the  memorable  atmosphere 
of  "Planetfall"  —  except  that  you're 
marooned  on  a  "planetfill"  now  and 


your  companion  isn't  Floyd,  but 
irascible  Iggy  the  Droid. 

IMPORTf^NT:  Due  to  some  tinker- 
ing by  the  Antic  technical  staff  (ac- 
tually duplicating  a  few  key  data  files 
from  Part  II  onto  the  March  1989 
disk)  you  not  only  will  be  able  to 
experience  the  randomized  in- 
troduction to  the  adventure — you 
can  also  solve  the  first  few 
challenges  of  Escape  From  Dispozon 
using  this  month's  disk  alone.  Admit- 
tedly this  just  gives  you  a  taste  of  the 
complete  game,  but  it's  worth  wait- 
ing for  Part  II. 

You  need  BOTH  the  Match  and 
April  1989  Antic  Disks  in  order 
to  attain  final  victory  over  the 
perils  of  Dispozon.  If  you  try  to 
go  beyond  the  FOURTH  ROOM 
without  the  Part  II  disk,  the  pro- 
gram will  crash! 

Unfortunately,  Escape  From  Dis- 
pozon was  NOT  designed  by  the 
author  to  play  as  a  two-parter,  so 
Antic  just  had  to  do  the  best  we 
could.  To  repeat.  Escape  from  Dis- 
pozon is  a  HUGE  program  in  BASIC. 
Just  the  extensive  text  files  contain- 
ing Iggy's  responses  take  up  some 
686  disk  sectors.  (Wordy  fellow,  isn't 
he?). 

This  month's  Antic  Disk  has  a 
HELP  file  for  Escape  from  Dispozon, 
with  suggestions  and  a  list  of  accept- 
able commands.  To  read  the  Help 
file  or  make  a  printout,  select  choice 
5,  HELP  HAS  from  the  Side  A  menu. 

Your  March  1989  Antic  Disk- 
featuring  Part  I  of  the  Escape  From 
Dispozon  Super  Disk  Bonus  as  well 
as  every  type-in  program  from  this 
issue — ^will  be  shipped  to  you  within 
24  hours  after  receiving  your  order. 
Just  phone  Toil-Free  to  the  Antic 
Disk  Desk  at  (800)  234-7001.  The 
monthly  disk  is  only  $5.95  (plus  $2 
for  shipping  and  handling)  on  your 
Visa  or  MasterCard.  Or  mail  a  $  5  -95 
check  (plus  $2  shipping  and  han- 
dling) to  Antic  Disk  Desk,  544  Sec- 
ond Street,  San  Francisco,  CA  94107. 


The  daily  commute  has  finally  got- 
ten out  of  hand.  You  endured  some 
messed-up  streets  before  this,  but  to- 
day is  the  worst  you've  ever  seen  it. 
In  desperation,  you  try  taking  that 
backroads  route  home,  the  one 
through  the  delta  that  oldtimers  still 
tell  stories  about.  And  boy,  are  you 
sorry!  Drawbridges,  detours  and  truly 
impossible  turns  have  made  the  drive 
home  a  nightmare,  and  you're  not 
sure  you  didn't  drive  right  into  the 
Twilight  Zone!  Didn't  that  detour  sign 
point  left  last  time  you  went  by? 


You  have 

three  cars 

w^ith  ^vhich 

to  complete  this 

demoniacally 

difficult 

course. 


Demon  Racer  is  programmed  in  the 
fast,  high-powered  ACTION!  lan- 
guage. This  challenging  driving  game 
for  one  player  is  full  of  fast-scrolling 
thrills  as  you  skid  and  crash  through 
the  tortuous  course.  If  you  beat  the 
clock,  you  might  get  home  in  time  for 
dirmer — but  your  first  objective  is 
simple  survival. 

GEniNG  STARTED 

Type  in  Listing  1,  RACER.ACT,  and 
Listing  2,  SCREEN. ACT,  and  save  a 
copy  of  each  to  disk  before  you  start 
the  game. 

Antic  Disk  users  don't  need  the 
ACTION!  language  cartridge  to  use 
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Demon  Racer 

Desperate  ACTION! 
commute  through  the  Twilight  Zone.  By  Jon  Peterson 


TIME  I 

l^^^,^ 

u 

T^emon  Racer  is  a  fast-scrolling 
JL^  ACTION!  game  for  one  player 
that  forces  you  to  steer  your  car 
through  roads  filled  with  all  sorts  of 
devious   obstacles.   The   program 
works  on  8-bit  Atari  computers  with 
at  least  32K  memory,  disk  drive.  You 
also  need  the  ACTION!  programming 
language — unless  you  use  the  special 
runtime  version  of  Demon  Racer  on 
this  month's  Antic  Disk. 

Demon  Racer.  A  runtime  version, 
RACER.EXE,  is  on  this  month's  disk. 
(Runtime  ACTION!  translations  are 
nearly  always  too  long  for  printing  as 
type-in  listings.)  Copy  RACER.EXE  to 


another  disk  that  has  been  formatted 
with  DOS  2  or  DOS  2.5,  and  make 
sure  the  disk  contains  a  DOS.SYS  file. 
Rename  RACER.EXE  to  AUTO- 
RUN.SYS.  To  start  racing,  turn  your 


Atari  off,  insert  your  RACER.EXE  disk, 
remove  all  cartridges  (XL  and  XE 
owners  press  [OPTION])  and  turn  on 
your  computer  Demon  Racer  will 
load  and  run  automatically. 

After  the  title  screen  is  displayed, 
press  [ST\RT]  or  your  joystick  button 
to  begin.  You  have  three  cars  with 
which  to  complete  this  demoniacally 
difficult  course. 

Move  the  joystick  left  and  right  to 
steer  your  racer  Move  the  joystick  for- 
ward to  speed  up.  To  slow  down, 
move  the  joystick  back  or  press  the 
button.  You  can  also  press  the  space- 
bar to  pause  the  game.  Pressing  any 
other  key  will  resume  play. 

If,  against  all  odds,  you  complete 
the  course,  the  demons  will  become 
angry  and  cause  a  thunderstorm  with 
lightning  to  appear.  If  you  wish  to  play 
again,  press  the  [STA.RT]  key. 

OBSTACLES: 

The  following  obstacles  must  be 
avoided  to  complete  the  course: 

Dra^vbridges  open  and  close  peri- 
odically. If  you  try  to  pass  through  an 
open  drawbridge,  you'll  crash. 

Land  mines  will  appear  periodi- 
cally and  must  be  avoided  or  you'll 
crash. 

Gates  and  Barricades  open  and 
close,  while  detours  force  you  to 
maneuver  around  them.  Also,  detours 
move,  so  you  must  time  your  passage 
carefully. 

If  you  happen  to  crash  at  some 
point  (more  than  likely),  you  will  be 
sent  back  to  the  beginning  of  your 
current  lap,  with  a  new  car  and  a 
three-second  penalty.  Remember,  you 
only  have  three  cars,  and  you'll  prob- 
ably need  them  all.  Good  luck, 
Commuter.  A 

Jon  Peterson  lives  in  Concord,  Califor- 
nia. This  is  his  first  appearance  in  Antic 
Listing  on  page  22 


When  you  want  to  talk  Atari 


XL/XE  HARDWARE 


CMO  SPECIAL 

Atari  800XL  $69®® 

65XE 109.00 

130XE 149.00 

INTERFACES 

ICD 

P:R  Connection 58.99 

Printer  Connection 34.99 

Supra 

1150 39.99 

1151  (1200  XL)   40.99 

Xetec 

Graphix  Interface 38.99 

Atari 

850  Interface 109.00 

XL/XE  ENHANCEMENTS 

Axlon  32K  Mem.  Board  (400/800)   .19.99 

Atari  80  Column  Card 74.99 

ICD 

BBS  Express  (ST) 52.99 

Sparta  DOS  Construction  Set 27.99 

US  Doubler/Sparta  DOS 45.99 

Real  Time  Clock 48.99 

Rambo   XL 26.99 

US    Doubler 27.99 

MODEMS 

Atari 

SX212  300/1200  (ST)   78.99 

XMM301 44.99 

Anchor 

VM520  300/1200  ST  DIr.  Con 109.00 

Avatex 

1200  HC 89.99 

2400 169.00 

Supra 

2400  Baud  XL/XE  or  ST 159.00 

2400  Baud  (no  software) 139.00 

MONITORS 

Magnavox 

CM  8505  14"  Composite/RGB/TTL  . .  .189.00 


ST  HARDWARE 


Call  For  Current  Information 
On  Ttie  Entire  ST  Line! 


PRINTERS 


ATARI  SM1224  ^^^« 

RGB/Color  Monitor       $329 

520ST  FM  RGB/Color  System.  .  .829.00 
SM124  Monochrome  Monitor.  .  .  .179.00 


Jk.  AlARj 


jsozayj 


CMO  PACKAGE  EXCLUSIVE 
Atari  800XL  &  XF551  Drive 

w/5  Undocumented  ROMS  Asteroids,  Defender, 
Missile  Command,  QIX,  Star  Raiders       ^OCO 


DRIVES 


Atari 

ST  314  DS/DD 219.00 

XF551  Drive  (XL/XE)   179.00 

I.B. 

51/4"  40  Track  (ST) 219.00 

51/4"  80  Track  (ST) 279.00 

LCD. 

FA'ST  20  Meg 629.00 

FA»ST  30  Meg 849.00 

FA'ST  Dual  Hard  Drives Call 

Indus 

GTS  100  31/2"  DS/DD  (ST) 189.00 

GT  1000  51/4"  DS/DD  (ST) 199.00 

GT  Drive  (XL/XE) 179.00 

Supra 

FD-10  10MB  Removable  Floppy. 859.00 

30  Meg  Hard  Drive  (ST) 649.00 

60  Meg  Hard  Drive  (ST) 989.00 

CALL  FOR  DISKETTE  SPECIAL 


EPSON  LQ-850  ^,^« 

24-Wire,  330  Cps         $499 

Atari 

1020  Printer,  40  Col.  Color 19.99 

1027  Letter  Quality  XL/XE 69.99 

XDM121    LQ  (XL/XE) 189.00 

XM-M801  XL/XE  Dot  Matrix 189.00 

Brother 

M-1109  100  cps  Dot  Matrix 159.00 

HR-20  22  cps  Dalsywheel 339.00 

Citizen 

120D  120  cps  Dot  Matrix   159.00 

Epson 

LX-800  150  cps,  80  col 189.00 

FX-850  264  cps,  80  col Call 

LQ-500  180  cps,  24-wire Call 

LQ-1050  330  cps,  132  col Call 

NEC 

P2200  pinwriter  24-wire 349.00 

Okidata 

Okimate  20  color  printer 139.00 

ML-182  +120  cps,  80  column  .  .229.00 

ML-390  +270  cps,  24-Wire 539.00 

Panasonic 

KX-P1080i  144  cps,  80  col 169.00 

KX-P1091i  194  cps,  80  col 189.00 

KX-P1124  24-Wire,   192  cps 319.00 

Star  Micronics 

NX-1000  140  cps,  80  column  .  .  .179.00 

NX-1000  RainBow  Color 239.00 

Toshiba 

P321-SL  216  cps,  24-wire 499.00 

Allsop  Disk  Holders 

Disk  File  60-51/4" 9.99 

Disk  File  30-3V2" 9.99 

Curtis 

Emerald  39.99 

Safe  Strip 19.99 

Universal  Printer  Stand 14.99 

Tool  Kit 22.99 


ACCESSORIES 


y 


Your  Source  for  Hardware,  Software  &  Peripherals 


■you  want  to  talk  to  us. 


SPECIALS  XL/XE 


#AAB822P  822  Printer  Paper $2.49 

#AA14746  T.V.  Switch  Box 2.49 

#AA4010   Tic-Tac-Toe 4.99 

#AA4011  Star  Raiders 3.99 

#AA4012  Missile  Command 3.99 

#AA4013    Asteroids 4.99 

#AA4022  Pac  Man 4.99 

#AA4025    Defender 4.99 

#AA4027  QIX 4.99 

#AA4102  Kingdom  (Cass.) 1.99 

#AA4112  States  &  Capitals  (Cass.).  1.99 

#AA4121  Energy  Czar 1.99 

#AA4123  Scram  (Cass.) 1 .99 

#AA4126  Speed  Reading 2.99 

#AA4129  Juggle's  Rainbow 1.99 

#AA415  File  Manager 8.99 

#AA4204  1020  Color  Pens 1.99 

#AA5047  Timewise  (D) 3.99 

#AA5049  Visicalc  (D) 24.99 

#AA5050  Mickey  Outdoors 5.99 

#AA5081  Music  Painter  (D) 9.99 

#AA6006  Counseling  Procedure.  .  .  .1.99 
#AA7102  Arcade  Champ  (No  J.  Stk)6.99 

#AA8030  E.T.  Phone  Home 3.99 

#AA8048  Millipede 4.99 

Accolade 

Hardball 21.99 

Activision 

Hacker  ll/Music  Studio  (ea.) 28.99 

Antic 

Flash 21.99 

Avant  Garde 

PC   Ditto 59,99 

Batteries  Included 

Degas    Elite 37.99 

Cygnus 

Starfleet 32.99 


ST  SOFTWARE 


Access 
Leaderboard  Golf 


$2299 


CLOSEOUTS  XL/XE 


ROM  CARTS  (XL/XE) 
«299  ea  or  5  for  $1399 


'^*'«r    mmr    ««*,«• 
::;.:......-  '*■*•'      w""     swv- 


Loose/Undocumented 

Choose  from:  Space  Invaders,  Star 
Raiders,  Missile  Command,  Asteroids, 
Pac  Man,  Galaxian,  Defender,  QIX, 
Super  Breakout,  E.T.,  Eastern  Front, 
Robotron. 
Rocklyn 

Gorf 2.99 

Anti-Sub    (Disk) 2.99 

Journey  to  Planet 2.99 

Atari  Program  Exchange 

10  Different  Cassettes  For $11.99 


ST  SOFTWARE 


Data  East 

Speed    Buggy 25.99 

Electronic  Arts 

Auto    Duel 31.99 

Isgur's  Portfolio 129.00 

Firebird 

Silicon   Dreams 1 3.99 

The  Sentry/Tracker  (ea.) 12.99 

FTL 

Dungeonmaster 29.99 

Metacomco 

ISO    Pascal 59.99 

Michtron 

Leatherneck 29.99 

Microprose 

Gunship 28.99 

F-15  Strike/Silent  Service  (ea.).  ,  ,24.99 
Miles  Software 

ST    Wars 24.99 

Mindscape 

High    Roller 31.99 

Mark  Williams 

DeBugger 45.99 

Paradox 

Wanderer  (3D) 24.99 


SPECIALS  XL/XE 


Access 

Leaderboard  Golf 13.99 

Accolade 

Fight  Night 19.99 

Hardball 19.99 

Atari 

Atariwriter  Plus 35.99 

Broderbund 

Graphics    Library 18.99 

Printshop 26.99 

Datasoft 

Alternate  Reality  (City) 23.99 

221  Baker  St 20.99 

Electronic  Arts 

Pinball  Construction 15.99 

Microprose 

Silent  Service 23.99 

Top    Gunner 14.99 

F-15  Eagle  Strike 22.99 

Origin  Systems 

Ultima   4 36.99 

Strategic  Simulations 

Battallion  Commander 25.99 

Gemstone  Warrior 1 1 .99 

Sublogic 

Flight   Simulator 34.99 

Progressive  Computer 

Graphic  Artist  1 .5 109.00 

Psygnosis 

Barbarian 25,99 

Soft  Logik  Corp. 

Page    Stream 129.00 

Strategic  Simulation 

Questron   II 35.99 

Timeworks 

Swiftcalc (ea.)  46.99 

Desktop   Publisher 79.99 

Unison  World 

Printmaster  Plus 25.99 


ST  SOFTWARE 


TImeWorks 
WordWriter 


$4499 


In  U.S.A. 


Call:  1-800-233-8950 

in  Canada  call:  1-800-233-8949    All  Other  Areas  call:  717-327-9575    Fax:  717-327-1217 

Educational,  Governmental  and  Corporate  Organizations  call  toll-free  1-800-221-4283 

CMO,  101  Reighard  Ave.,  Dept.  B6,  Williamsport,  PA  17701 


MBMain 


MBflC 


OVER  350.000  SATISI^IED  CUSTOMERS    •    ALL  MAJOR  CREDIT  CARDS  ACCEPTED    •    CREDIT  CARDS  ARE  NOT  CHARGED  UNTIL  WE  SHIP 


POLICY:  Add  3%  (minimum  $7.00)  shipping  and  handling.  Larger  shipments  may  require  additional  charges.  Personal  and  company  checks  require  3  weeks  to 
clear.  For  faster  delivery,  use  your  credit  card  or  send  cashier's  check  or  bank  money  order.  Credit  cards  are  not  charged  until  we  ship.  Pennsylvania  and 
Maryland  residents  add  appropriate  sales  tax.  All  prices  are  U.S.A.  prices  and  are  subject  to  change,  and  all  items  are  subject  to  availability.  Defective  software 
will  be  replaced  with  the  same  item  only.  Hardware  will  be  replaced  or  repaired  at  our  discretion  within  the  terms  and  limits  of  the  manufacturer's  warranty.  We 
cannot  guarantee  compatibility.  All  sales  are  final  and  returned  shipments  are  subject  to  a  restocking  fee.  We  are  not  responsible  for  typographic  or  photographic 
errors. 
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I  type-In  Software 


GAME  OF  THE  MONTH 


Baker  Solitaire 


All  the  cards  are  face  up,  so  there's  no  excuse.  By  Tom  CUne 


Almost  everyone  has  played  Klon- 
dike, perhaps  the  most  popular  of 
solitaire  card  games.  In  Klondike  the 
cards  are  dealt  face  down  (except  for 
the  top  card)  into  seven  columns  with 
one  card  in  the  first  column,  two  in 
the  second  column  and  so  on. 

Klondike  is  an  example  of  a  closed 
solitaire  game.  A  closed  game  is  one 
in  which  a  decision  on  the  play  of  a 
card  is  made  without  full  knowledge 
of  all  the  other  cards. 

Baker  is  an  "open"  solitaire  game, 
a  version  of  Eight  Off,  in  which  all 
cards  are  dealt  face  up.  Since  a  player 
has  complete  information  on  all  the 
cards,  each  position  of  the  cards  can 
be  analyzed  to  determine  the  "best" 
next  move.  (Baker  appeared  in  Mar- 
tin Gardner's  column  in  the  June  I968 
issue  of  Scientific  American.  The 
game  is  named  after  C.L.  Baker,  who 
introduced  the  game  to  Gardner) 

GEHING  STARTED 

Type  in  Listing  1,  BAKER.BAS, 
check  it  with  TYPO  II,  and  SAVE  a 
copy  to  disk  before  you  RUN  it. 

If  you  have  trouble  typing  the  spe- 
cial characters  in  lines  45-50,  don't 
type  them  in.  Instead,  type  Listing  2, 
check  it  with  TYPO  II  and  SAVE  a 
copy.  When  you  RUN  Listing  2,  it  cre- 
ates these  hard-to-type  lines  and  stores 
them  in  a  file  called  LINES.  LST 

To  merge  the  two  programs,  disk 
users   LOAD    "DiBAKER.BAS"    and 
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T^aker  Solitaire  is  a  computer 
Jl3  version  of  Eight  Off,  an  "open" 
solo  card  game.  This  BASIC  program 
works  on  8-bit  Atari  computers  with 
at  least   48K  memory,   disk   or 
cassette. 

then  ENTER  "D:  LINES.  LST."  Cassette 
users:  CLOAD  Listing  1,  then  insert 
the  separate  cassette  used  for  Listing 
2  and  ENTER  "C:  ".  Remember  to 
SAVE  the  completed  program  before 
you  RUN  it. 

Baker  can  be  played  with  two, 
three,  or  four  suits  of  thirteen  cards 
each.  The  degree  of  difficulty  in- 
creases dramatically  with  the  number 
of  suits. 

Each  suit  is  represented  by  a  dif- 
ferent color  The  card  values  are 
indicated  by  single-digit  numbers  and 


letters.  A  ten  is  indicated  by  a  capital  T. 

The  cards  are  dealt  face  up  into 
columns  and  rows  called  the  "field." 
The  number  of  columns  of  cards  in 
the  field  depends  on  the  number  of 
suits  used.  Two  suits  yield  six 
columns,  three  suits  produce  seven 
columns  and  all  four  suits  give  you 
eight  columns. 

The  object  of  the  game  is  to  sort  all 
the  cards  of  each  suit  into  a  separate 
pile,  called  a  "terminal  pile."  The  cards 
must  be  placed  one  at  a  time  on  this 
pile,  in  ascending  order,  with  the  Ace 
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on  the  bottom  and  the  King  on  top. 

Each  terminal  pile  starts  on  one 
of  the  green  stars  at  the  upper  right 
of  the  screen,  in  an  area  marked  with 
a  "T." 

In  addition  to  the  field  and  the 


parking  space  'k',  for  example,  you'd 
type  BK. 

The  first  letter  pressed  will  turn 
black  to  show  you  which  card  is  be- 
ing moved.  When  the  second  letter 
is  pressed,  the  card  is  moved,  you'll 


You  can  use  the  space  bar 

to  "take  back"  moves — even  back 

to  the  beginnmg,  if  you  like. 


terminal  pile,  a  card  may  occupy  a 
"parking  space"  at  the  upper  left  of 
the  screen,  in  an  area  marked  with  a 
"P."  There  are  as  many  parking  spaces 
as  suits.  Each  space  is  marked  by  a 
gold  star  with  a  letter  underneath,  and 
can  hold  only  one  card. 

RULES  OF  PLAY 

Within  the  field,  an  exposed  card 
(a  card  at  the  bottom  of  a  column)  can 
be  moved  onto  the  next-highest  card 
of  the  same  suit,  if  it  is  also  exposed. 

For  example,  if  a  green  six  is 
exposed  in  the  first  column,  and  a 
green  seven  is  exposed  in  the  second 
column,  the  six  may  be  placed  on 
the  seven. 

A  card  in  a  parking  space  may  be 
moved  onto  the  field  the  same  way. 

Any  exposed  card  can  be  moved  to 
an  empty  parking  space.  Each  park- 
ing space  will  hold  only  one  card  at 
a  time. 

Any  exposed  card,  or  parked  card, 
can  be  moved  onto  the  terminal  pile, 
so  long  as  it  follows  the  sequence. 
Once  a  column  is  empty,  any  exposed 
or  parked  card  can  be  moved  to  it. 

MOVING  CARDS 

A  card  is  moved  using  the  key- 
board. First,  press  a  letter  indicating 
the  column  or  parking  space  of  the 
card  to  be  moved.  Next,  press  the  let- 
ter indicating  the  card's  destination. 
To  move  a  card  from  column  'b'  to 


hear  a  tone,  and  the  first  letter's  color 
will  change  back  to  purple. 

If  an  illegal  move  is  attempted, 
either  one  of  the  letters  or  the  purple 
line  will  flash  on  and  off  for  a  few 
seconds.  If  you  decide  not  to  move 
a  card,  just  press  the  key  that  cor- 
responds to  the  black  letter 

TAKE  IT  BACK! 

At  any  point  you  can  use  the  space 
bar  to  "take  back"  a  move  and  restore 
the  previous  positions  of  the  cards. 
The  program  can  remember  up  to  300 
moves — enough  to  go  all  the  way 
back  to  the  beginning  of  most  games. 
You  may  want  to  use  this  feature  to 
try  a  different  line  of  play  if  you  get 
stuck,  or  to  study  possible  moves. 

Use  the  letter  P  to  mark  a  position 
that  you  may  want  to  return  to.  When 
you  go  back  to  that  position  using  the 
spacebar,  a  buzzer  will  sound  and  the 
letter  P  will  turn  blue.  These  options 
can  be  very  useful  in  studying  play 
strategy. 

GROUP  MOVEMENTS 

While  only  one  card  can  be  moved 
at  a  time,  there  are  certain  positions 
of  the  cards  where  it  would  be  con- 
venient to  move  a  group  of  cards.  For 
example,  if  you're  lucky  enough  to 
have  a  green  8,  7,  6  and  5  in  the  bot- 
tom of  column  b,  and  a  green  9  at  the 
end  of  column  c,  and  enough  open 
columns  or  parking  spaces  to  move 


them  all  one  at  a  time,  you'd  type  TBC 
to  move  the  8, 7, 6  and  5  from  column 
b  to  column  c,  all  at  once. 

If  the  group  transfer  cannot  legally 
be  made,  one  of  the  column  letters 
will  blink  on  and  off  several  times.  To 
stop  this  command  without  complet- 
ing a  group  move,  press  T  again. 

You  can  save  quite  a  few  keystokes 
by  using  the  letter  T  when  you  want 
to  move  a  group  of  cards.  If  you  're  just 
learning  the  game,  however,  you 
should  move  just  one  card  at  time 
until  you  become  more  familiar  with 
the  game. 

To  start  a  new  game  press  the  ESC 
key.  Once  you've  won  a  game,  BAKER 
will  flash  the  word  "WINNER"  and 
tell  you  how  many  moves  it  took  you 
to  complete  the  game.  Press  any  key 
to  play  again.  A 

Tom  Cline  of  Berkeley,  California  is  mak- 
ing his  debut  in  Antic. 

Listing  on  page  27 


HAVE  A  QUESTION 

ABOUT  YOUR 

SUBSCRIPTION? 

Get  an  answer  fast! 

Call  Toll  Free: 
(800)  347-6969 

Write: 

Antic  Customer  Service 

P.O.  Box  1919 

Marion.  OH  43306 
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I  T^pe-In  Software 


RANDOM  ATARI 


Enhancing  the  number  generator. 


B 


A      V      I 


M 


I      N 


H 


The  Atari  8-bit  computer  has  an 
excellent  random  number  generator. 
In  fact,  its  biggest  drawback  is  that  the 
numbers  it  produces  are  too  random! 

Random  numbers  are  generated  on 
the  Atari  by  measuring  random  noise 
on  an  electronic  circuit,  and  convert- 
ing this  to  a  value  between  zero  and 
65,535.  This  is  divided  by  65,536,  to 
give  a  value  between  zero  and  one. 
These  are  excellent  random  numbers, 
but  they  are  non-repeatable.  If  you  run 
a  program  whose  results  depend  on 
random  numbers,  you  will  never  be 
able  to  repeat  those  same  results. 

Being  able  to  repeat  results  can  be 
very  important.  For  example,  track- 
ing down  an  intermittent  bug  in  a 
non-repeatable  program  can  be  a  real 
nightmare. 

If  only  the  error  could  be  produced 
consistently,  it  would  be  much  easier 
to  find  and  correct.  Or  maybe  you 
want  to  test  various  scenarios  on  your 
program,  but  can't  be  sure  the  test 
results  were  successful  because  you 
never  get  the  same  results  twice.  Or 
you  have  written  a  game  with  a 
beginner  mode,  and  want  the  same 
obstacles  repeated  every  time,  while 
the  advanced  mode  is  to  be  random. 

Most  computers  have  a  very  differ- 
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Random  Atari  is  a  teaching 
article  and  utility  program 
that  explains  a  little-known 
technique  of  generating 
a  repeatable  series  of 
''pseudo-random^^  numbers 
that  make  it  easier  for  you 
to  debug  your  programs.  The  technique 
also  produces  a  much  wider  range  of 
random  numbers.  This  BASIC  program 
works  on  all  8-bit  Atari  computers  of 
any  memory  size,  with  disk  or  cassette. 


ent  type  of  random  number  genera- 
tor, based  on  a  mathematical  formula. 
An  initial  number,  called  the  random 
seed,  is  taken  from  somewhere.  If  the 
seed  is  entered  directly  by  the  user, 
the  series  of  psuedo-random  numbers 
generated  can  be  repeated,  simply 


by  using  the  same  "random"  seed. 
Using  the  repeatable  numbers  makes 
program  testing  and  debugging  much 
simpler. 

For  truly  random  results,  the  ran- 
dom seed  must  be  randomly  gener- 
ated in  some  manner  On  an  Atari  you 
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can  simply  use  the  built-in  random 
number  function.  On  other  com- 
puters timing  is  often  used  to  gener- 
ate random  numbers. 

Once  a  random  seed  is  obtained, 
the  numbers  are  generated  through  a 
simple  formula.  The  random  seed 
value  X  is  multiplied  by  a  constant 
value  C,  and  then  divided  by  another 
constant,  M.  The  remainder  R  is  a 
number  between  1  and  M-1,  and  is 
divided  by  M  to  give  the  the  required 
random  value  between  zero  and  one. 
X  is  then  set  equal  to  R,  to  seed  the 
next  random  number. 

The  constants  used  in  this  program 
are: 

C  =  397,204,094 

M  =  231-1  =  2,147,483,647 

GEniNG  STARTED 

Type  in  Listing  1,  RANDOM. BAS, 


check  it  with  TYPO  II,  and  SAVE  a 
copy.  If  you  have  trouble  with  the 
special  characters  in  lines  20080- 
20090,  20120,  20140  and  20210, 
don't  type  them.  Listing  2  will  create 
them  for  you.  Type  in  Listing  2, 
check  it  with  TYPO  II  and  SAVE  it. 
When  you  RUN  Listing  2  it  creates 
a  file  called  LINES.LST  Merge  this 
file  with  Listing  1  by  typing  LOAD 
"DiRANDOM.BAS  and  then  ENTER 
"D: LINES.LST".  (Cassette  owners  use 
ENTER  "C:").  Remember  to  SAVE 
the  completed  program  before  you 
RUN  it. 

Listing  3,  RANDOM. M65,  is  the 
MAC/65  source  code  for  the  program. 
You  do  not  need  to  type  it  in  to  use 
Random  Atari. 

To  RUN  Random  Atari,  you  need  to 
set  a  variable  X  to  a  number  between 
zero  and  M,  and  then  enter  GOSUB 
20000.  The  following  lines  will  set 
X  and  then  call  Random  Atari. 

100  X  =  12345  :GOSUB  20000 

110  FOR  1  =  1  TO  20:GOSUB 
20200:PRINT  I,X:NEXT  I 

120  END 

Here,  the  random  seed  is  12345. 
Every  time  this  is  RUN,  the  same  20 
random  values  will  be  produced. 
Now  try  setting  X  to  zero  on  Une  100. 
The  program  will  generate  a  truly  ran- 
dom seed  of  its  own,  and  a  different 
20  values  will  be  produced  every  time 
the  program  is  RUN. 

The  value  of  X  should  be  set  only 
once  in  your  program,  preferably  near 
the  beginning.  If  X  is  between  one 
and  M,  then  X  is  the  random  seed, 
and  the  program  results  can  be  re- 
produced by  reusing  the  same  value. 
If  X  is  zero  or  less,  a  random  seed  is 
chosen  using  the  regular  random 
number  generator,  and  the  results  will 
be  unpredictable. 

Random  Atari  gives  you  more  than 
just  the  option  of  repeatable  random 
numbers — it  also  gives  you  a  higher 
degree  of  variability.  The  BASIC 
RND(O)  command  can  produce  only 
65,536  distinct  values.  For  some  pur- 
poses, this  is  not  enough.  Random 
Atari,  on  the  other  hand,  produces 


2,147,483,646  distinct  values. 

PROGRAM  TAKE-APART 

Line  20010.  The  program  uses  three 
variables,  X$,  X(0),  and  X.  These 
are  three  different  values,  in  spite 
of  the  similarity  of  their  names.  On 
this  line,  X(0)  is  set  equal  to  its  own 
address  in  memory,  which  is  the  byte 
immediately  following  the  address  of 
X$,  since  they  were  DIMensioned 
consecutively. 

Line  20020.  POKEs  the  address  of 
X(0)  into  locations  203  and  204  ($CB 
and  $CC).  These  are  two  Page  Zero 
memory  locations  which  BASIC 
doesn't  use. 

Line  20060.  If  X  (the  random  seed) 
is  zero  or  negative,  calculate  a  new 
random  seed.  This  will  be  a  value 
between  one  and  2^1-1. 

Line  20065.  If  X  is  greater  than 
231-2,  then  set  X  to  equal  2^1-2. 

Line  20070.  Convert  the  random 
seed  to  a  four-byte  binary  number, 
and  store  it  in  memory  locations 
205-208  ($CD— SDO). 

Line  20080.  X(0)  is  set  to  the  ad- 
dress of  a  machine  language  routine 
which  copies  a  section  of  memory  to 
a  new  location. 

Lines  20090-20150.  The  machine 
lanuage  random  number  generator  is 
copied  to  Page  Six  in  memory  loca- 
tions 1536-1785  ($0600-$06F9). 

Line  20160.  Return  from  the  initiali- 
zation routine. 

Lines  20200-20210.  Call  this  rou- 
tine every  time  you  need  a  random 
number.  These  lines  call  a  machine 
language  subroutine  which  calculates 
a  "pseudo-random"  number  between 
zero  and  one,  then  places  this  value 
in  X(0).  The  variable  X  is  then  as- 
signed this  value. 

ASSEMBLER  TAKE-APART 

Line  40.  The  program  is  compiled 
at  location  256OO  ($6400),  but  every- 
thing down  to  line  280  is  fully 
relocatable. 

Lines  50-130.  Store  the  value 
397,204,094  as  a  binary  integer  in 
locations  219-222.  These  locations  are 
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usually  referred  to  as  FRE. 

Lines  140-180.  Move  the  random 
seed  (or  the  remainder  from  the  last 
calculation)  from  locations  205-208 
to  locations  213-216  (FRO). 

Line  190.  Multiply  the  random  seed 
in  FRO  by  the  constant  value  in 
FRE.  The  result  is  stored  in  locations 
225-232,  FRl.  Note  that  the  result  of 
multiplying  two  four-byte  values  is  an 
eight-byte  value. 

Line  200.  Calculate  the  remainder 
when  FRl  is  divided  by  2*'-l.  The 
four-byte  result  is  contained  in  bytes 
229-232  of  FRl. 

Lines  210-250.  Replace  the  random 
seed  at  locations  205-208  with  the 
remainder  calculated  above  for  the 
next  calculation. 

Lines  260-270.  Convert  the  calcu- 
lated value  from  a  binary  integer  to  a 
floating  point  decimal  value  between 
0  and  1.  The  value  is  first  doubled  by 
the  ROTATE  routine,  because  the  rou- 
tine BTOD  assumes  we  have  a  value 
between  1  and  2^2-1,  where  to  this 
point  we  have  calculated  a  value 
between  1  and  2*'-l. 

This  routine  divides  the  four-byte 
binary  integer  at  FRl  by  2''.  The 
random  number  algorithm  actually 
requires  FRl  to  be  divided  by  2''-l, 
but  the  difference  is  negligible. 

Line  280.  Return  to  BASIC. 

Line  290.  The  remainder  of  this 
program  is  compiled  starting  at  lo- 
cation 1536  ($0600)  and  is  not 
relocatable. 

Lines  300-580.  Routine  to  perform 
binary  integer  multiplication.  Two 
four-byte  integers  at  FRO  and  FRE  are 
multiplied,  and  the  resulting  eight- 
byte  value  is  stored  in  FRl. 

Lines  590-670.  Add  the  contents  of 
FRO  to  FRl. 

Lines  680-1010.  Calculate  the  re- 
mainder when  the  value  at  FRl  is 
divided  by  2^'-l.  A  little  algebra  here 
saved  me  from  writing  a  complicated 
binary  division  routine. 

Let  A  %  B  represent  the  remainder 
M^ben  A  is  divided  by  B  (as  it  does  in 
some  versions  of  BASIC),  and  let 
X  =  M*23i+N,   where  N<23'.  Then 


we  can  say 

X  %  (2-^1-1)  =  (M  *  2^1  +  N)  %  (2-^>-l) 
=  (M  +  N)  %  (231-1) 

What  started  as  a  complicated  di- 
vision problem  is  now  a  simple  addi- 
tion problem.  The  routine  repeatedly 
adds  the  top  33  bits  of  FRl  to  the  bot- 
tom 31  bits  of  FRl  (M  and  N  from 
above),  until  the  top  33  bits  are  all 
zeroes.  The  bottom  31  bits  contain  the 
required  remainder 

Lines  1020-1450.  Convert  a  four- 
byte  binary  fraction  at  FRl  to  a  float- 
ing point  decimal  number  The  result 
is  stored  at  the  six-byte  location  start- 
ing at  the  byte  pointed  to  by  locations 
203  and  204.  The  binary  fraction  is 
assumed  to  be  positive,  and  its  32  bits 
are  assumed  to  represent  halves, 
quarters,  eighths,  sixteenths,  etc. 

The  routine  repeatedly  multiplies 
the  fraction  by  10  until  it  calculates 
a  value  greater  than  1.  Every  other 
time  it  is  multiplied,  the  exponent  of 
the  floating  point  value  is  decre- 
mented, having  started  from  an  ini- 
tial value  of  63- 

Once  the  value  exceeds    1,   the 


non-fractional  part  of  the  number 
becomes  the  first  digit  of  the  floating 
point  value.  The  non-fractional  part 
is  set  to  zero,  and  the  fraction  is  again 
multiplied  by  10  to  get  the  next 
digit  of  the  floating  point  value.  This 
is  repeated  until  the  five  bytes  of 
the  floating  point  value  each  contain 
two  digits. 

Lines  1460-1520.  Copy  four  bytes 
from  FRl  to  FRO. 

Lines  1530-1630.  Binary  multipli- 
cation of  FRO  by  10.  The  result  is 
stored  in  five  bytes  of  FRl.  Before 
executing  this  routine,  it  is  assumed 
that  FRl  has  been  set  equal  to  FRO. 

Lines  1640-1700.  Rotate  five  bytes 
of  FRl  one  bit  to  the  left.  This  is 
equivalent  to  multiplying  FRl  by  two. 

REFERENCE 

'An  introduction  to  Stochastic 
Simulation,"  Chicago:  Society  of  Ac- 
tuaries, #130-033-86.  A 

David  Mcintosh  is  an  actuary  and  pro- 
grammer for  National  Life  of  Canada. 
Listing  on  page  30 
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SpartaDOS  X  or  Atari  DOS-XE? 


Which  is  Number  1? 


BY  MATTHEW  RATCLIFF 


SPARTADOS  X 


SpartaDOS  X,  $7995  from 
ICD,  is  the  ultimate  disk 
operating  system  for  8-bit 
Atari  computers,  bar  none! 
This  64k  super  cartridge  packs  power 
galore.  SpartaDOS  X  even  works  with 
the  old  Atari  800  and  will  support  that 
computer's  Axlon  RAM  upgrades. 

SpartaDOS  X  is  a  "piggyback"  car- 
tridge, letting  you  insert  a  second 
cartridge  on  top.  The  SpartaDOS  X 
cartridge  can  take  complete  control 
of  your  system,  allowing  you  to  ac- 
cess the  cartridge  on  top,  such  as 
MAC/65,  or  run  built-in  BASIC  while 
the  top  cartridge  is  still  in  place. 

SpartaDOS  X  is  a  command  line 
DOS,  just  like  its  disk-based  predeces- 
sor. For  example,  you  type  DIR  Dl:  *.* 
to  see  a  directory  of  all  the  files  on 
drive  number  one,  instead  of  select- 
ing a  menu  option  and  being 
prompted  for  more  information. 
Power  users  can  really  fly  through 
their  system  maintenance  once  they 
learn  the  basic  command  structure. 

SpartaDOS  X  does  have  a  built-in 
MENU,  which  makes  it  easy  for 
novices  to  control  all  the  power  of 
this  DOS.  The  MENU  does  not  have 
the  familiar  look  of  Atari  DOS,  but 
with  a  little  practice,  it  is  not  difficult 
to  master. 

The  most  fascinating  feature  of 
SpartaDOS  X  is  that  it  uses  the  same 


commands  as  MS-DOS,  the  disk  oper- 
ating system  of  IBM  PCs.  Anyone  ex- 
perienced with  a  PC  or  clone  will  be 
familiar  with  the  SpartaDOS  X  com- 
mands like  CHDIR,  DEL,  and  others. 
If  you  don't  know  how  to  use  an  IBM 
PC,  SpartaDOS  X  will  help  you  learn. 
For  those  who  are  attached  to  the 
older  disk-based  SpartaDOS,  Spar- 
taDOS X  retains  many  of  the  old  com- 
mands as  "aliases"  of  the  new  MS- 
DOS  commands.  Some  relearning 
wiU  be  required,  but  not  much.  For 
example,  you  used  to  type  BASIC  ON 
or  BASIC  OFF  to  control  the  internal 
XL/XE  BASIC.  Now  you  simply  type 
BASIC  to  run  the  language,  which  au- 
tomatically turns  off  when  you  enter 


SpartaDOS  X. 

The  disk  format  utility  XINIT  is  no 
longer  necessary.  From  virtually  any 
program  making  a  system  call  to  for- 
mat a  disk  (XIO  #254),  the  FORMAT 
command  brings  up  a  SpartaDOS  X 
menu  on  the  screen.  For  example, 
when  I  selected  FORMAT  from  the 
AtariWriter  main  menu,  the  Spar- 
taDOS X  format  menu  popped  up  in- 
stantly. It  flawlessly  formatted  a  dou- 
ble sided,  double  density,  high  speed 
I/O,  360K  disk  on  my  XF551,  and 
then  returned  gracefully  to 
AtariWriter  with  my  edit  buffer 
unharmed. 

From  the  format  menu  of  Spar- 
taDOS X,  you  may  select  the  drive 
number,  format  type  (including  Atari 
DOS  or  SpartaDOS),  and  high  speed 
I/O  including  ICD's  UltraSpeed,  Indus 
high  speed,  and  even  the  high  speed 
mode  of  the  new  Atari  XF551  disk 
drive.  Since  SpartaDOS  X  is  in  a  car- 
tridge, this  formatter  will  not  write 
DOS  to  disk. 

NEW  COMMANDS 

ARC  is  a  new  command  in  Spar- 
taDOS X,  an  extremely  fast  and 
powerful  version  of  the  popular  file 
compression  utility.  ARC  will  take  one 
or  more  files  at  your  request  and  com- 
press them  into  one  ARC  file,  by  as 
much  as  50%  or  more 
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Using  the  MS-DOS  command  struc- 
ture, SpartaDOS  X  adds  new  device 
names  to  your  Atari.  From  SpartaDOS 
X  you  refer  to  the  printer  as  PRN: 
and  the  keyboard  as  CON:.  Spar- 
taDOS X  will  not  recognize  the  P:  and 
E:  devices  you  are  accustomed  to,  al- 
though they  are  still  accessible  from 
BASIC  and  other  programs. 

When  you  boot  with  SpartaDOS  X, 
the  program  looks  for  a  file  called 
CONFIG.SYS.  This  allows  you  to 
hook  in  custom  drivers,  making  max- 
imum use  of  your  computer  configu- 
ration. You  can  tell  SpartaDOS  X 
where  your  extra  RAM,  if  any,  can  be 
found,  and  how  much  to  use  for  disk 
buffers.  To  enable  the  high  speed  I/O 
driver  for  Indus  disk  drives,  for  exam- 
ple, your  CONFIG.SYS  text  command 
file  will  specify  DEVICE  INDUS.SYS/. 

The  DEVICE  AIARIDOS  command 
must  be  included  in  CONFIG.SYS  to 
have  full  access  to  disks  formatted 
with  Atari  DOS  or  its  derivatives,  such 


"■'^-^•^'^'^■^'^' 


as  MyDOS.  Even  so,  I  have  found  that 
SpartaDOS  X  has  a  particular  dislike 
for  DOS  2.5  disks  formatted  in  en- 
hanced density,  and  refuses  to  access 
the  extended  sectors. 

You  will  always  want  to  enable 
RAMDISK.SYS,  since  SpartaDOS  X 


requires  a  RAMdisk  to  save  the  work- 
ing memory  of  BASIC  or  other  car- 
tridges. SpartaDOS  X  saves  your 
working  RAM  in  a  manner  similar  to 
the  MEM.SAV  feature  of  Atari  DOS.  If 
SpartaDOS  X  cannot  preserve  your 
working  RAM  when  you  enter  the 


ASK  THE  RAT 

Matthew  Ratdiff' s  ANTIC  ONLINE  technical  Q&A  column 


Along  with  this  issue's 
in-depth  Matthew 
Ratdiff  reviews  of 
SpartaDOS  X  and 
Atari  DOS-XE,  we 
thought  it  would  be  a  good  idea 
to  show  you  a  sample  of  Compu- 
Serve's ANTIC  ONLI N  E  "Ask  The 
Rat."  The  technical  question  an- 
swering column  is  written  by 
Ratdiff  under  his  online  handle 
"MAT*  RAT." 

Additional  excerpts  from  this 
valuable  column  will  appear  regu- 
larly in  future  Antic  issues.  But  for 
a  timelier  look  at  the  newest 
MAT  *  RAT  answers,  or  to  ask  your 
own  technical  questions,  just  type 
GO  ANTIC  when  you  log  onto  the 
CompuServe   online   information 


service.  There  is  no  extra  charge 
for  using  any  part  of  the  ANTIC 
ONLINE  electronic  magazine.— 
ANTIC  ED 

RANDOM  ML 

Greg  Maguire— I'm  trying  to  do 


some  random  disk  access  from  ML. 
How  can  I  NOTE  &  POINT  to  a 
sector  &  byte  using  the  CIO? 

MAT* RAT— Use  XIO  commands. 
Do  you  have  MAC/65?  In  the 
macro  library  presented  in  the  back 
of  the  manual,  an  XIO  macro  is 
presented.  It's  virtually  identical  to 
the  XIO  command  of  BASIC  and 
will  work  the  same.  Write  a  simple 
NOTE  and  POINT  program  in 
Atari  BASIC,  get  it  working,  and 
then  go  to  MAC/65's  MACROs. 
You  can  do  all  that  NOTE  and 
POINT  stuff  with  XIO  commands: 

100  NOTE  #1,SECT,BYTE 

is  exactly  the  same  as: 

100  XIO  38,#1,SEC,  BYTE, 
"D1:":REM  (The  string  doesn't 
matter). 

and. .  . 

110  POINT  #1,SEC,BYTE 

is  the  same  as: 

no    XIO    37,#1,SEC,BYTE, 
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DOS  command,  you  are  warned  of 
the  condition  and  given  the  oppor- 
tunity to  abort  and  save  your  file. 

It  may  take  a  while  to  become 
accustomed  to  all  these  new  drivers, 
but  the  default  driver,  when  no  CON- 
FIG.SYS file  is  found,  seems  to  work 
well. 

PROTECT  and  UNPROTECT  have 
been  supplanted  with  the  ATR  com- 
mand. Your  file  attributes  can  be  set 
(+)  and  cleared  (-)  with  this  com- 
mand, including  A  for  archive,  H  for 
hidden,  and  P  for  protected.  ATR  + 
P  is  used  to  protect  files,  and  -P  will 
unprotect  them. 

CHDIR  is  the  change  directory 
command,  and  SpartaDOS  X  still  fully 
supports  the  old  CWD,  as  well  as  the 
common  MS-DOS  abbreviation  of 
CD.  Subdirectory  path  names  can  be 
separated  by  the  old  greater-than  sym- 
bol (>)  or  with  the  MS-DOS  back-slash 
character  (\).MKDIR  (also  MD)  and 
RMDIR  (also  RD)  make  and  remove 


directories,  just  like  the  old  CREDIR 
and  DELDIR,  which  are  still  sup- 
ported. 

SpartaDOS  X  also  includes  the 
PATH  command,  offered  previously 
on  the  SpartaDOS  Toolkit  disk.  The 
PATH  command  allows  you  to  specify 
the  default  search  directory  for  Spar- 
taDOS X.  For  example,  you  can  place 
all  your  external  command  files  (such 
as  FLASHBAK.COM)  in  a  DOS  sub- 
directory on  your  boot  disk  and 
specify  PATH  Dl:\OS  in  your 
AUTOEXEC.BAT  file.  Then,  any  time 
you  specify  a  command  that  is  not 
built  into  SpartaDOS  X,  the  program 
automatically  searches  this  path  for 
the  file. 

HARD  DISK  HELP 

Multiple  search  paths  are  allowed. 
SpartaDOS  X  also  incorporates  the 
Toolkit  command  PROMPT,  which 
can  set  the  prompt  to  display  the  cur- 
rent time,  date  and  directory  path  if 


you  choose,  instead  of  the  simple 
"Dl:".  This  is  an  extremely  valuable 
feature  for  hard  disk  users  who  have 
to  keep  track  of  a  lot  of  subdireaories. 

SpartaDOS  X  supports  PEEK  and 
POKE  commands.  They  work  exactly 
like  their  BASIC  counterparts.  This 
comes  in  handy  for  setting  certain 
defaults,  such  as  screen  colors  or 
keyboard  repeat  rate,  from  an 
AUTOEXEC.BAT  file,  for  example. 

The  UNERASE  utility  from  the 
Toolkit  is  built  into  SpartaDOS  X. 
This  is  a  powerful,  immensely  useful 
command.  Whenever  you  acciden- 
tally erase  the  wrong  file,  simply 
UNERASE  it. 

The  CHTD  command  allows  you 
to  change  the  date  and  time  stamps 
of  files.  This  comes  in  handy  when 
setting  the  time  stamps  of  files  copied 
from  Atari  DOS  2.0  and  2.5  disks, 
which  don't  have  this  feature. 

The  CHVOL  command  allows  you 
to  change  the  volume  name  of  a  Spar- 


^1 
"D1:":REM   (The  string  doesn't 
matter). 

SERIAL  COMMAND 

Andy  Grey— How  long  after  the 
CMD  line  goes  low  is  a  command 
frame  sent  down  the  serial  line? 
How  long  after  the  command 
frame  is  sent  does  the  computer  ex- 
pect to  get  an  ACK  or  NACK? 

MAT*  RAT— The  SIO  bus  operates 
at  19,200  baud.  When  the  PRINT 
LINE  function  is  called  for  the  SIO 
handler,  first  a  Device  I.D.  of  $40 
is  sent,  followed  by  a  command 
byte  of  $57. 

Next  is  AUX1,  which  is  ignored 
(your  printer  could  use  this  as  spe- 
cial sub  commands  or  something); 
followed  by  AUX2  which  is  a  $4E 
for  normal  print  or  $53  for  side- 
ways (I  doubt  the  latter  is  im- 
plemented), followed  by  a  check- 
sum of  the  previous  4  bytes.  The 


computer  then  sends  the  data 
frame  of  40  or  30  bytes  (depend- 
ing on  normal,  or  sideways  com- 
mand respectively)  followed  by  a 
checksum  byte. 

UNERASING  HELP 

Michael  Rothstein— There  have 
been  occasions  where  for  some 
reason,  while  UNERASING.COM 
a  group  of  files,  the  CHKDSK 
showed  something  like:  Total  Bytes: 
200,000,  bytes  remaining: 
300,000.  I  know  math  and  there 
is  something  wrong.  I  had  to  XI NIT 
it  (disk  3)  and  I  got  something  like 
184,000  bytes  on  the  RAMdisk. 
But  it  was  about  8K  less  than  the 
actual  size  of  the  MIO  configured 
RAMdisk.  I  would  rather  some- 
how XI NIT  it  to  bring  it  back 
to  its  hefty  192K.  From  what  I  have 
experienced,  the  only  way  to  do 
that  is  by  reformatting  the  entire 
MIO.  Can  it  be  done?? 


MAT  *  RAT— No,  Mike.  There  is  no 
way  to  reformat  the  MIO  RAMdisk 
without  "losing"  space.  On 
powerup  or  when  the  MIO  is 
reconfigured  from  your  RESET- 
SELECT  menu,  all  the  MIO  RAM- 
disks  are  "formatted"  to  their 
full  size. 

There  is  no  utility  I'm  aware  of 
that  will  "figure  out"  how  many 
Kbytes  a  RAMdisk  format  should 
return  for  the  MIO.  (How  often  do 
you  FORMAT  RAMdisks  for  Atari 
DOS  2.5?)  The  reason  you  lose 
Kbytes  on  the  MIO  RAMdisk  for- 
mat is  that  it  is  configured  to  be  log- 
ically identical  to  a  floppy  disk, 
making  it  easy  to  make  a  RAMdisk 
mirror  copy  of  a  floppy. 

To  restore  the  RAMdisk  to  its  full 
size,  power  cycle  MIO  (after  back- 
ing up  the  files,  of  course)  or  recon- 
figure it  from  the  RESET-SELECT 
menu  (which  also  makes  the  MIO 
"forget" what  it  had  in  RAM).  A 
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taDOS  format  disk.  The  volume  name 
is  generally  specified  at  format  time, 
but  CHVOL  makes  it  a  snap  to  update. 
The  CHKDSK  command  is  a  quick 
way  to  find  out  how  much  free  disk 
space  you  have  on  a  specific  drive. 
My  favorite  utility  from  the  Spar- 
taDOS  Toolkit  is  WHEREIS.COM.  A 
slightly  different  version  has  been  im- 
plemented in  SpartaDOS  X,  called 
FIND.  It  will  locate  any  file  or  files 
matching  your  specification,  on  any 
disk  in  any  subdirectory  in  your  sys- 
tem. It  can  be  a  lifesaver  when  you 
lose  track  of  important  files  in  a  maze 
of  directories. 

ATARI  800  SUPPORT 

The  SpartaDOS  X  cartridge  works 
with  the  Atari  800,  but  if  you  "piggy- 
back" another  cartridge  on  top  of  it, 
you  won't  be  able  to  close  the  800 's 
cartridge  slot  door  and  engage  its 
safety  switch. 

To  engage  the  safety  switch  while 
the  door  is  open,  ICD  recommends 
you  carefully  squeeze  a  toothpick  or 
plastic  pen  cap  into  the  safety  switch 
slot,  located  about  one  inch  above  the 
[BREAK]  key. 

BIGGEST  WORKSPACE 

SpartaDOS  X  has  the  lowest 
LOMEM  of  any  DOS  to  date,  provid- 
ing more  workspace  for  BASIC  and 


assembly  language  programs.  Sparta- 
DOS X  completely  smashes  the  limit 
of  126  files  per  directory,  allowing 
over  1,400  files  in  a  single  directory! 

The  most  frustrating  "feature"  of 
the  disk  based  SpartaDOS  was  the  key 
buffer,  which  defaults  to  ON.  This 
type-ahead  buffer  was  great — ^when  it 
was  compatible  with  your  application 
program.  It  was  not  compatible  with 
MAC/65,  for  example,  and  could  com- 
pletely lock  up  your  system  under  cer- 
tain circumstances.  SpartaDOS  X  also 
has  the  KEY  command  built  in,  but 
it  mercifully  defaults  to  OFF. 

MEM  is  a  handy  command  for 
checking  total  free  memory  in  your 
computer  system.  It  even  displays  free 
banks  of  RAM  in  extended  memory 
Ataris. 

Initially,  SpartaDOS  X  was  not 
compatible  with  the  Atari  XEP80's 
handler.  I  talked  to  ICD,  and  they 
responded  with  a  new  driver, 
XEP80.SYS,  within  3  days!  This  driver 
is  currently  available  on  CompuServe, 
and  will  be  included  in  future  copies 
of  SpartaDOS  X. 

This  amazing  little  utility  allows 
one  program  to  use  both  40  column 
and  80  column  displays.  All  S:  output 
goes  to  the  40  column  display.  E:  out- 
put is  routed  to  the  80  column  dis- 
play. This  allows  me  to  run  Express 
3.0,  Keith  Ledbetter's  modem  pro- 


gram, in  80  columns.  All  the  menus 
are  displayed  in  the  standard  40 
columns,  but  the  terminal  mode  gets 
the  full  80  columns  on  the  XEP80's 
display. 

At  this  time,  SpartaDOS  X  is  still  not 
compatible  with  TurboWord,  the  80 
column  word  processor  from 
Micromiser  Software,  but  ICD  is 
working  with  Micromiser  to  solve  this 
problem  .The  preliminary  manual  I 
received  with  SpartaDOS  X  was  a 
complete  cut-and-dried  technical 
reference.  The  new  manual  is  more 
than  double  the  size  of  the  original, 
providing  plenty  of  information  and 
tutorials  for  beginners. 

SpartaDOS  X  is  the  most  advanced 
software  and  hardware  product 
released  for  the  8-bit  Atari  since  ICD's 
Multi  I/O  interface.  It  is  so  large  and 
powerful,  I  just  can't  cover  all  its 
features  in  the  span  of  a  single  review. 
I  have  found  it  to  be  powerful, 
bug-free  and  certainly  worth  the 
long  wait! 

The  development  of  SpartaDOS  X 
was  a  major  accomplishment,  and  my 
congratulations  go  to  Tom  Marker  and 
the  entire  ICD  staff.  SpartaDOS  X  is 
the  super  cartridge  no  experienced 
Atarian  should  be  without. 

$79.95.  ICD  Inc.,  1220  Rock  Street,  Rock- 
ford,  1161101.(815)968-2228. 


DOS-XE 


Atari's  DOS-XE  ($10)  is  fi- 
nally here,  about  a  year 
after  their  new  XF5  5 1  disk 
drive  was  released.  Now 
Atari  has  a  disk  operating  system  that 
fully  supports  their  new  drive,  pro- 
ducing double-sided,  double-density 
disks  with  a  total  of  360K  per  disk. 
Some  of  you  may  recall  that  Bill 
Wilkinson  of  Optimized  Systems  Soft- 
ware was  developing  a  new  A-DOS 
for  Atari.  Well,  this  is  it,  renamed 
DOS-XE. 


DOS-XE  has  many  new  features  in- 
cluding multi-density  support,  sub- 
directories, date  stamping,  and  even 
high  speed  I/O  support  for  the  XF551. 
It  will  work  with  any  XL  or  XE  com- 
puter with  an  810,  1050  or  XF551 
disk  drive. 

DOS-XE  is  not  compatible  with 
Atari  DOS  2.0,  nor  is  it  compatible 
with  DOS  2.5  single  or  enhanced 
density.  This  was  the  major  flaw  in 
Atari  DOS  30  which  resulted  in  its 
quick  and  painful  death.  DOS-XE  tries 


to  bridge  this  gap  with  support  for 
reading  and  writing  DOS  2  or  2 . 5  file 
formats,  without  the  need  for  running 
separate  "conversion  utilities".  You 
simply  choose  to  Allow  DOS  2.X 
access  from  the  appropriate  menu. 

DOS-XE  is  both  a  menu  driven  and 
command  line  DOS.  Using  the  menus, 
just  type  the  first  letter  of  any  com- 
mand displayed  in  the  current  menu. 
Then,  simply  follow  all  the  prompts 
until  the  command  is  completed. 

If  you  enter  all  the  iiiformation  on 
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a  single  line,  separating  each  parame- 
ter with  a  single  space,  DOS-XE  can 
decipher  the  entire  command  line 
and  perform  the  functions  without 
requesting  additional  input.  To  look 
at  a  [Fjiles  listing  from  any  of  the  sub- 
menus, you  can  enter  a  command  line 
as  follows: 

F  D2:*.BAS  E: 

This  command  will  request  DOS- 
XE  to  list  all  the  .BAS  files  from  drive 
2  to  the  screen,  the  E:  device.  You  can 
just  as  easily  enter  the  P:  parameter 
to  send  a  file  list  to  the  printer 

Because  of  its  sophistication,  DOS- 
XE  is  broken  into  three  sub-menus,  all 
controlled  from  a  main  menu.  From 
the  main  menu  you  can  go  to  the  File 
Access,  Machine  Language  Access,  or 
System  Function  menus.  The  user 
may  also  [E]xit  to  BASIC  or  to  an 
external  cartridge  if  installed. 

From  the  System  Functions  sub- 
menu, you  may  elect  to  [Ajllow  DOS 
2.x  access.  Once  enabled,  DOS  2.0 
or  DOS  2.5  disks  are  accessed  as  Al: 
instead  of  Dl:.  The  letter  A  tells 
DOS-XE  to  use  the  special  Atari  DOS 
2  handler. 

Atari  guarantees  only  that  DOS-XE 
will  read  DOS  2.0  or  2.5  formats,  not 
write  them.  I  find  this  a  serious  limi- 
tation. However,  a  SpartaDOS/DOS- 
XE  conversion  utility  is  in  the  works. 
ICD  is  also  developing  a  time  stamp 
driver  for  DOS-XE  which  will  support 
the  R-Time  8  clock  cartridge. 

DOS-XE  appears  to  do  a  good  job 
of  bridging  the  gap  from  the  old  to 
the  new  Atari  DOS  format.  I  found 
that  the  [C]opy  files  command  in  the 
File  Access  menu  never  works  when 
copying  to  Atari  DOS  2  or  2.5  disks, 


even  when  the  special  handler  is 
enabled.  For  example,  the  following 
command: 

C  Dl:WELCOME.BAS  A1:WEL- 
COME.BAS  tells  DOS-XE  to  copy  the 
file  WELCOME.BAS  from  the  DOS-XE 
format  disk  in  drive  1  to  the  Atari  DOS 
2  or  2.5  format  disk  in  drive  2.  How- 
ever, this  always  results  in  an  error 
168,  "command  invalid."  It  is  interest- 
ing to  note  that  when  copying /rom 
a  DOS  2.0  or  2.5  disk  to  a  DOS-XE 
disk  (e.g.  from  A2:FILE  to  D1:FILE), 
DOS-XE  can  handle  the  transfer  with 
no  problems. 

Fortunately,  you  can  save  to  and 
load  from  an  Atari  DOS  2.0  or  2.5  disk 
from  BASIC,  MAC/65,  and  other  lan- 
guage cartridges.  Once  the  Atari  DOS 
2  handler  is  enabled,  it  remains  in 
effea  until  you  reboot  your  computer 

You  can  return  control  to  your  car- 
tridge and  load  from  or  save  to  a  DOS 
2  or  2.5  disk  by  using  the  letter  A  to 
indicate  a  DOS  2  or  2.5  drive.  For 
example,  if  drive  2  has  an  Atari  DOS 
2.0  disk  in  it,  you  would  SAVE  your 
fUe  to  A2:FILENAME. 

Under  the  file  access  menu,  you 
can  [P]rotect  or  [U]nprotect,  [E]rase, 
[Rjename,  [V]iew  (type  text  files  to  the 
screen),  [Ajppend  to,  and  [C]opy  files. 
The  really  new  features  are  the 
[Wjorking,  [N]ew,  and  [Djelete  direc- 
tory options,  used  to  manage  your 
sub-directories. 

SUB-DIREaORY  SERVICES 

A  sub-directory  can  be  thought  of 
as  a  disk  within  a  disk,  with  its  own, 
separate  directory  listing. 

Sub-directories  let  you  organize 
large  numbers  of  files  in  a  logical  man- 
ner With  a  full  36OK  on  your  floppy 
disks,  you  may  find  this  feature  quite 
helpful  indeed.  DOS-XE  always  dis- 
plays the  current  sub-directory  at  the 
top  of  the  current  menu. 

From  the  File  Access  menu  you  may 
also  [I]nitialize  disks.  If  you  choose 
this  option  you  will  be  prompted  for 
the  disk  drive  number,  then  for  a 
device  type— AT810,  AT1050,  XF551 
or  SSDD. 
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The  AT810  format  is  simply  single 
sided,  single  density,  or  about  88K  per 
diskette.  The  AT1050  is  the  Atari  1050 
enhanced-density  format,  or  about 
12.08K  per  disk.  The  XF551  uses  a 
"genuine"  double-sided,  double- 
density,  full  36OK  disk  format. 

The  SSDD  stands  for  single  sided, 
double  density.  This  lets  you  create  a 
single  sided  floppy  180K  in  size, 
which  can  also  be  booted,  read,  and 
written  in  a  1050  disk  drive  equipped 
with  ICD's  US  Doubler,  for  example. 

A  command  line  is  allowed  here,  as 
it  is  anywhere  else  in  DOS-XE.  For 
example: 

I  1  XF551  tells  DOS-XE  to  format 
the  disk  in  drive  1  in  XF551  (360K) 
format.  You  are  always  prompted 
to  press  [START]  to  continue  or 
[SELECT]  to  abort,  to  verify  your 
inputs  first. 

ML  SUPPORT 

The  Machine  Language  Access 
menu  lets  you  manage  your  binary 
files,  such  as  data  files,  or  machine 
language  utilities  and  games.  From 
this  menu  you  may  [R]un  or  [L]oad 
a  binary  file  and  [S]ave  or  [A]ppend 
memory  to  a  file. 

This  menu  is  handy  for  patching 
files  in  memory  with  the  [D]isplay  (a 
nice  memory  dump  in  both  hex- 
adecimal and  ASCII)  and  [C]hange 
memory  commands.  These  can  be 
thought  of  as  sophisticated  PEEK  and 
POKE  commands. 

Once  you  have  patched  a  file  in 
memory  you  can  save  it,  or  test  run 
it  with  the  [G]o-to  command. 

The  System  Function  menu  lets  you 
[R]un  a  batch  file.  A  batch  file  is  an 
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ASCII  file  filled  with  commands  that 
you  would  normally  type-in.  They 
can  come  in  handy,  assisting  you  with 
a  lot  of  the  "housekeeping"  chores  of 
managing  your  disks.  There  is  not 
much  information  on  batch  files  in 
the  DOS-XE  manual,  so  it  is  not  yet 
clear  just  how  sophisticated  they 
might  be. 

DOS-XE  requires  an  XL  or  XE  com- 
puter with  at  least  64K  of  RAM  to  run. 
This  DOS  is  so  large  that  it  requires 
some  of  the  RAM  "hidden"  under  the 
operating  system  to  work.  DOS-XE 
provides  32,274  bytes  of  program- 
ming space  in  Atari  BASIC  Revision  C, 
exactly  the  same  as  Atari  DOS  2.0. 

When  the  Atari  DOS  2  or  2.5  sup- 
port is  enabled  in  DOS-XE,  your 
BASIC  programming  space  drops  to 
27,264.  Atari  DOS  2.0  and  2.5  com- 
patibility comes  at  the  high  price  of 
5,010  bytes  of  program  space. 

The  advantage  to  using  the  extra 
system  memory  is  that  DOS-XE  pops 
up  instantly  when  you  enter  the  DOS 
command  from  BASIC  or  from  an- 
other cartridge. 

The  bad  news  is  that  Atari  400  and 
800  owners  have  just  been  served  no- 
tice that  their  machines  are  no  longer 
being  supported  by  Atari.  Their  only 
options  are  ICD's  SpartaDOS  version 
1.1  and  the  SpartaDOS  X  cartridge 
reviewed  in  this  issue,  two  disk  oper- 
ating systems  which  take  advantage  of 
the  XF55rs  capabilities,  while  provid- 
ing 400/800  compatibility. 

MORE  FLEXIBILITY 

The  manual  for  DOS-XE  {by 
Charles  Cherry  of  Antic  Software— 
ANTIC  ED)  is  very  well  done.  It  starts 
with  the  basics,  especially  for  begin- 
ners who  are  new  to  disk  drives  and 
disk  operating  systems.  All  the  DOS 
commands  and  menus  are  detailed 
with  plenty  of  examples.  The  disk- 
related  BASIC  commands,  including 
access  to  advanced  features  through 
XIO  (extended  input  and  output) 
commands  are  explained  as  well. 
Sample  BASIC  and  Assembly  language 
programs  are  presented. 


Atari  DOS  2.0  and  2.5  were  not 
very  flexible.  If  you  wanted  to  change 
the  number  of  disk  drives  supported 
by  either  DOS,  you  had  to  remember 
some  special  POKE  commands  to 
enter  from  BASIC  and  then  write 
DOS  to  a  new  disk.  DOS-XE  comes 
with  SETUP.COM,  a  utility  which 
makes  it  simple  to  customize  it  to  your 
particular  preferences,  including 
RAMdisk  setup. 

Except  for  the  one  glitch  in  copy- 
ing to  DOS  2  or  2.5  disks,  I  found 
DOS-XE  works  quite  well.  Its  incom- 
patibility with  DOS  2.0  is  an  unavoid- 
able price  to  pay  for  the  increased 
power  of  sub-directories  and  date 
stamping.  (Although  they  should  have 
included  a  clock  driver,  allowing  time 
stamping  as  well.) 

Unfortunately,  DOS-XE  uses  a  new 
file  format  totally  alien  to  SpartaDOS. 
So,  getting  from  here  to  there  will  still 
require  the  lowest  common  denomi- 
nator of  Atari  DOS  2.0  or  2.5  in  sin- 
gle density  format.  Because  of  the 
new  file  format,  DOS-XE  will  not  be 
compatible  with  the  current  crop  of 
bulletin  board  systems  or  most  data- 
base programs,  which  require  random 
access  files. 

I  feel  that  DOS-XE  will  survive,  un- 
like DOS  3.0,  because  it  does  a  good 
job  of  supporting  Atari  DOS  2.0  and 
2.5  when  necessary.  However,  it  isn't 
as  sophisticated  as  SpartaDOS,  which 
can  automatically  detect  any  DOS  for- 
mat it  supports. 

In  conclusion,  SpartaDOS  is  the 
power  user's  disk  operating  system. 
DOS-XE,  on  the  other  hand,  is  much 
easer  to  use.  Its  menu-driven  user  in- 
terface helps  novices  learn  to  use  it 
quickly  and  easily,  while  the  com- 
mand line  controls  let  power  users  fly 
through  their  DOS  operations  as  well. 
DOS-XE  will  support  up  to  16  mega- 
bytes on  a  single  disk,  which  means 
that  DOS-XE  could  support  a  hard 
drive  in  the  future.  A 

$10.  XL/XE  with  810, 1050,  orXF551  disk 
drive.  Atari  Corp.,  1196  Borregas  Avenue, 
Sunnyvale,  CA  94806.  (408)  745-2000. 
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TYPING  SPECIAL  ATARI  CHARACTERS 


The  Atari  Special  Characters  and 
the  keys  you  must  type  in  order  to 
get  them  are  shown  below: 

For  [CONTROL]  key  combina- 
tion, hold  down  [CONTROL]  while 
pressing  the  next  key.  For  inverse 
[CONTROL]  [A]  through 
[CONTROL]  [Z],  press  the  [a] 
key— or  [^k  ]  on  the  400/800— then 
release  it  before  pressing  the  next 
key.  (Press  [H]  or  [  yk]  again  to  turn 
off  inverse.)  For  [ESC]  key  combina- 
tions, press  [ESC]  and  then  release 
it  before  pressing  the  next  key. 

Carefully  study  the  chart  above 
and  pay  close  attention  to  differ- 
ences between  lookalike  characters 
such  as  the  slash  key's  [/]  and  the 
[CONTROL]  [F]  symbol  [0]. 


NORMAL  VIDEO 


FOR 
THIS 


TYPE 
THIS 


HCTRL  , 
IB  CTRL  A 
□  CTRL  B 
ffl  CTRL  C 
91  CTRL 
ffl  CTRL 
IZCTRL 
SCTRL 
HCTRL 
CaCTRL  I 
BCTRL 
BCTRL 
B  CTRL 
n  CTRL 
U  CTRL 
E]  CTRL 
Ei  CTRL 
ffl  CTRL 
e  CTRL 


J 

K 

L 

M 

N 

O 

P 

Q 

R 


FOR 
THIS 

8B  CTRL 
m  CTRL 
BCTRL 
D  CTRL 
e  CTRL 
ffi  CTRL 


TYPE 
THIS 

s 

T 

u 

V 

w 

X 


B  CTRL  Y 
ffl  CTRL  Z 
H  ESC  ESC 
ffl  ESC  CTRL   - 
BB  ESC  CTRL   = 
ffl  ESC  CTRL  + 
ffl  ESC  CTRL   * 
m  CTRL    . 
n  CTRL    ; 
IB  SHIFT  = 
B  ESC    SHIFT 

CLEAR 
8]  ESC  DELETE 
(1  ESC  TAB 


rNVERSE  VIDEO 

FOB 

TYPE 

THI! 

,              THIS 

□ 

ESC 

SHIFT 

DELETE 

□ 

ESC 

SHIFT 

INSERT 

□ 

ESC 

CTRL 

TAB 

D 

ESC 

SHIFT 

TAB 

D 

A CTRL    . 

□ 

A CTRL    ; 

0 

ASHIFT  = 

□ 

ESC  CTRL  2 

a 

ESC 

CTRL 

DELETE 

D  ESC                    1 

CTRL 

INSERT 

TYPO  II  AUTOMATIC  PROOFREADER 

TYPO  II  automatically  proofreads  Antic's  type-in  BASIC  listings.  Type  in  the  listing  below  and  SAVE  a  copy  to  disk 
or  cassette.  Now  type  GOTO  32000.  At  the  prompt,  type  in  a  single  program  line  without  the  two-letter  TYPO  II 
code  at  the  beginning.  Then  press  [RETURN]. 

Your  line  will  reappear  at  the  bottom  of  the  screen.  If  the  TYPO  II  code  does  not  match  the  code  in  the  magazine, 
then  you've  mistyped  your  line. 

To  call  back  a  previously  typed  line,  type  [*],  then  the  line  number,  then  [RETURN].  When  the  completed  line  ap- 
pears, press  [RETURN]  again.  This  is  how  TYPO  II  proofreads  itself. 

To  LIST  your  program,  press  [BREAK]  and  type  LIST  To  return  to  TYPO  II,  type  GOTO  32000.  To  remove  TYPO 
II  from  your  program,  type  LIST  "D:FILENAME",0,31999,  then  [RETURN],  then  NEW,  then  ENTER  "D:FILENAME", 
then  [RETURN].  Now  you  can  SAVE  or  LIST  your  program  to  disk  or  cassette. 


t^ 


Don't  type  the 
TVPO  II  Codes! 


UB 
UM 
HS 

BN 
YC 

EM 

HS 

XH 


TH 
MF 


32eee  rem  tvpo  ii  by  andy  barton 

32010  REM  UER.  1.0  FOR  ANTIC  MAGAZINE 

32020  CLR  :DIM  LINES  C120>  s  CLOSE  ««2  s  CLO 

5E  «3 

32030 

32040 


OPEN    t»2,4,0."E" 
?    •■R":P05ITI0N 


iOPEN  ««3.5.0,"E" 

11. l:?  "DasmBDnB- 


32050  TRAP  32040!POSITION  2.3i7  "Tupe 

in  a  progran  line" 

32060  POSITION  1,4!?  '■  "sINPUT  tt2;LINE 

S.-IF  LINES  =  ""  THEN  POSITION  2,4iLIST  B 

:GOTO  32060 

32070  IF  LINES Cl. li="»"  THEN  B=UALcLIN 

ESC2.LENCLINESJ»> :POSITION  2.4SLIST  Bs 

GOTO  32060 

32080  POSITION  2,10!?  "CONT" 

32090  B  =  UALCLINESJ  :POSITION  1.3!?  ••  "s 


NY 
CN 
ET 

CE 
OR 


UU 

UJ 
JU 
EH 
BH 
HB 
IE 

UG 


2100 
2110 
2120 

P05 
2130 
2140 
INES 
TO  3 
2150 
NS+c 
2160 
2170 
2160 
2190 
2200 
2210 
LCOD 
2220 

nat 
ovie 


laaQuiBUiii 


OKE    842.13:ST0P 
OKE     842.12 

K":P0SITI0N    11. l!' 
ION    2.15:LIST     B 
=0! ANS=C 
OSITION    2,16:INPUT    «»3;LINES<IF 

THEN    ?     "LINE    "jBl"    DELETED"!G 
50 

OR    0=1     TO     LENCLINES) :C=C+1 : ANS= 
A5CCLINESCD.D>>> :NEXT    D 
ODE  =  INT  CAN5'675> 
0DE=AN5- cC0DE»676J 
CODE=INT tC0DE'26> 
C0DE=C0DE- cHC0DE»26>*65 
C0DE=HC0DE*65 
OSITION    0.16:?    CHRS CHC0DE> ; CHRS 

OSITION    2.13:?    "If    CODE    does    no 
press    ■[iiiaiimcasia    and    edit    line    a 
GOTO    32050 
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DEMON  RACER 


Article  on  page  6 


LISTING  1 


;DEnON  RflCER  1.8 

;BV  JON  PETERSON 

;cc>1988.  ANTIC  PUBLISHING 

BYTE  CHB0SEl,RAn,PMBASE,CHBASE2, 

SPEED=t6i ,TinER=[ie] .LAP=ci3 . 

GAnE=[e3 .a=2e,SEC=ce] ,niN=[e] . 

SECH=t93  ,SECL=C93  .I1INH=[9]  <niNL=i:9]  .C 
CH=i:l]  ,B,  J0Y,HP0S=C95]  ,CARS=[3]  . 
USYNC=«D4eA,C0LBK=$DeiA. 
C0NS0LE=53279<SECL1=[9] >SECH1=[9]. 
niNHl=c93  ,I1INL1=C93  ,SEC1=I993  , 
niNl=i:99]  ,Z<Cl=[e]<Dl=[e] 
CARD  CHSETl,X.Pn,CHSET2,DL.5CR, 

TOP.SCRT.SCRB.TinER2=[3ee0] . 

TinER3=cieee] 

BYTE  ARRAY 
CHRS  = 

[169  169  165  165  149  149  85  85 
74  74  82  82  84  84  85  85 
85  85  149  149  165  165  169  169 
85  85  84  84  82  82  74  74 
85  85  85  85  85  85  85  85 
178  178  178  178  178  178  178  178 
254  128  128  248  128  128  128  8 
138  138  138  254  138  138  138  8 
254  128  128  142  138  138  254  81, 
PnDATA=c24  189  255  165  36  36  165 

255  165  24  68  126  60  68  68 
68  126  363. 
CRASH=t85  178  85  178  85  178  85  178  85 

178  85  178  85  178  65  178  85  1781. 
P=[8  95  138  1683, 
SPD=C8  3  7  18  20  38  1083. 
ST=C14  46  48  52  55  58  62l  . 
UINDOU= 

[0  8  8  8  36  37  45  47  46  8  8  58  33  35 
37  58  8  8  8  8  8  8  34  57  8  8  42  47  46 
8  48  37  52  37  58  51  47  46  8  8  8  52 
41  45  37  8  8  8  8  8  8  8  8  35  33  58  51  26 
8  8  1. 
UIND0U1= 

[0  8  8  8  36  37  45  47  46  8  8  50  33  35 
37  58  8  8  8  8  8  8  35  47  53  58  SI  37 
8  35  47  45  48  44  37  52  37  36  8  8  8  8 
8  8  48  58  37  51  51  8  51  52  33  50  52 
8  0  0  0  0] 
INT  Y=tl5J 

;BEGIN  IT 

; 

PROC  FONTlo 

c8  8800000 

171  171  171  171  171  171  171  171 

171  171  172  172  176  176  192  192 

170  170  170  170  171  172  176  192 

171  172  176  192  0  0  0  0 
234  58  14  3  0  0  0  0 

170  170  170  170  234  58  14  3 

234  234  56  58  14  14  3  3 

234  234  234  234  234  234  234  234 

3  3  14  14  SB  SB  234  234 

3  14  58  234  170  170  178  170 

0  0  8  0  3  14  58  234 

0  0  0  0  192  176  172  171 

192  192  176  176  172  172  171  171 

0  0  0  0  0  24  24  0 

192  176  172  171  170  170  170  170 

254  134  198  198  198  194  254  0 

24  120  120  68  24  26  254  0 

254  134  6  254  192  194  254  0 

254  130  2  38  2  130  254  0 

198  198  198  254  6  6  6  0 

254  194  192  254  6  134  254  8 

254  194  192  254  194  194  254  0 

254  6  6  6  6  6  6  8 

254  138  138  124  130  138  254  8 

254  134  134  254  6  134  254  0 


=  c5a 


8  24  24  8  24  24  8  8 

178  178  178  178  178  178  178  178 

255  255  255  255  255  255  255  255 

255  255  255  255  255  255  255  255 

95  95  245  245  95  95  245  245 

8  68  182  12  24  8  24  8 

8  8  255  85  85  255  8  8 

68  198  254  138  138  138  8 


124 
252 
254 
252 
254 


134  134  252  134  134  252  8 

130  128  128  126  130  254  0 

134  130  138  130  134  252  0 

138  128  248  126  138  254  8 

8  8  8  176  8  e  e  e 

8  8  16  68  16  e  8  8 

8  182  102  126  182  182  182  8 

264  146  16  16  16  146  2S4  8 

15  2  2  2  138  138  254  8 

8  182  188  128  128  188  182  8 

128  128  128  128  138  138  254  8 

138  196  238  186  146  138  138  8 

194  226  178  154  142  134  138  8 

254  138  138  138  138  138  254  8 

254  138  138  254  128  128  128  8 

8  68  182  182  182  188  54  8 

252  134  134  252  152  148  134  8 

254  126  126  254  2  2  254  8 

254  146  16  16  16  16  56  8 

138  138  138  138  138  138  254  8 

8  182  182  182  182  68  24  8 

8  99  99  187  127  119  99  8 

88888888 

198  188  56  16  16  16  S6  8 

8  126  12  24  46  96  126  8 

0  30  24  24  24  24  30  0 

0  64  96  46  24  12  6  8 

8  128  24  24  24  24  128  8 

8  6  26  54  99  8  8  8 

8  8  8  8  8  8  255  81 


RETURN 
PROC 

ce 

8 


8  8 
8  8 


F0NT2c> 

8  8  8  8  8 
8  8  8  8  8 
8  8  24  24  24  24  8  8 
88888888 
8  8  255  85  85  255  8  01 
RETURN 

PROC  TITLEC} 

GRAPHICScea     P0KEc559.0l 

CHBASE1=PEEKC106>-B 

CHSET1=:CHBASE1«<256 

M0UEBL0CKCCHSET1.F0NT1.512> 

n0UEBL0CKcCHSETl+24.CHRS.72> 

P0KEC756.CHBASE1> 

PaKEc752.1> 

SETC0L0RC2.8.31  SETCOLOR C4 . 6. 3> 

SETC0L0RC1.8.15» 

iPRINT  OUT  MESSAGE 

P0SITI0NC8.8>  PRINTC"   TIME   "» 

PRINTBcniNH>  PRINTS cniNLi 

PRINTC i     PRINTBcSECHl  PRINTBCSECL> 

PRINTC"  BEST  TIME   "» 

PRINTBCMINH1>  PRINTS cniNLl> 

PRINTC }  PRINTS CSECH1>  PRINTBE cSECLls 

P0KECB2.51  PRINTEC"  "■» 
PRINTEC"cccccccccccccccccccccci 
PRINTE  C"C«  •«Ctt>ac'«tt-  ct«<*c  'Cc 
PRINTE  C"  c  •  c  •  c  •  «  c  c  •  >c«  •  c  •  c  •  c  •  X*  " 
PRINTEc-c  c  C'«cc'  cc  c  c  c  tr.' 
PRINTEc-c  •&c>c*c'  cc>  ex  -ac'  cc 
PRINTE  c"cccccccccccccccccccccci 
P0KEC82.141  PRINTEC"  ">  PRINTE' 
PRINTEc"ccccccccccccccccccccc' 
PRINTE  c"c  •  '«c«*'*  ct«-$ctt-«c  •  ■  *  c"j 
PRINT  EC  "c  c  c  c  c'&cc-scc-  c  c 
PRINTE  c"c>'*C'«'C'«cc'«cc>'$c' 
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PRINTE  c"  eft  CK  c&  CK  ex  •  «  (K  •  $  C«  CK  C"> 
PRINTE  C"cc(cccccccccccccccc( c"> 

PRINTEC"  ••» 

PRINTE c"       BV  JON  PETERSON"* 

P0KEce2,7i  PRINTEC"  ">  PRINTE c"  "> 

PRINTEC"  cCi  1988  ANTIC  PUBLISmIN-»"> 

PRINTEC"PRESS  START  OR  >IRE  TO  PLAY"» 

P0SITI0NC12.23> 

PRINT  C"mG!]arD(SDD(I][!]HGima]aii]QDi]"i 

P0KEC559.341     t1IN  =  0    5EC  =  8    6AnE  =  e 

DO 

UNTIL  C0NS0LE=6  OR  STRIGce>=e  OD 

RETURN 

PROC    SETRAMO 

RAn=PEEKcl86>-32 

CHSETl=RAn»256 

CHBASEl=RAn 

PnBASE=RAn+4 

PM  =  PI1BA5E»»256 

CHBASE2=RAn+8 

CHSET2=CHBASE2M256 

DL=cRAt1  +  12>»256 

SCR=cRAM+16»»256 

SCRT=5CR+88 

SCRB=SCR+368e 

T0P=cRAri-2»»»256 

P0KEcl86.RAn-2> 

GRAPHICScOi     P0KEc559,e> 

ZER0cT0P,8784> 

P0KEc82,e> 

RETURN 

PROC    DLlc> 

c«48    «8A    «48    «98    S4B3 

USYNC=1 

COLBK=C 

c«68    «A8    «68    »AA    tGB    «48] 

RETURN 

PROC    DLISTC* 
FOR    X=e    TO    2    DO 

P0ICECDL  +  X,112>  OD 
P0KEC0L*3.71> 
P0KECC0L+4,MIND0H> 
P0KEcDL+6.7> 
P0KEcDL+7.7> 
P0KECDL+8.16+128» 
P0KEcDL+9,iei> 
P0KECcDL+18.SCR> 
FOR  X=12  TO  28  DO 

P0KECDL+X,37>  OD 
P0KECDL+21.5> 
P0KEcDL+22,65> 
P0KECCDL+23.DL> 
POKECcSee.DLi 
P0KECC512.DLI1 
P0KEC54286,192> 
RETURN 
) 
i 


PROC  PMSETUPO 
P0KEc54279,PnBASE>  POKE c 
P0KEC53248.81  P0KEC53249 
P0KEC53256.8>  P0KEC53257 
P0KEC784,8>  P0KEc785,15i 
n0UEBL0CKcPn+512+97,PnDA 
n0WEBL0CKcPM+64e+97,PMDA 
P0KEC623.1> 
RETURN 

PROC  SETLOADO 
nOUEBLOCKcCHSETl.FONTl.5 
n0UEBL0CKCCHSET2. FONT 1.5 
n0UEBL0CKcCHSET2+c2Bw8i . 
M0UEBL0CKCCHSET2+C32M8> , 
n0UEBL0CKcCHSET2+c38M8>. 
n0UEBLOCKcCHSET2+c39M8> . 
n0UEBLOCKcCHSET2+c56w8i , 
CH=1  P0KEC756,CHBA5E1> 
RETURN 

INCLUDE  "D:SCREEN-ACT" 


PROC    SCRLOADO 

nOUEBLDCKcSCR+l.SCREENDATA,4e88> 

RETURN 

; 

t 

PROC    TOGGLESETO 

TinER2==+l 

IF  TinER2>588  THEN 

MARCH  1989 


53277. 3J 

.81 

.8> 

TA,9» 
TA+9.9> 


12> 

12S 

F0NT2.8> 

F0NT2+8.8> 

F0NT2+16.8> 

F0NT2«'24.8> 

F0NT2+32.81 


TiriER2  =  8 

IF    CH=2    THEN 

P0KEC756.CHBASE1>  CH=1 

ELSE  IF  CH=1  THEN 

P0KEC756.CHBASE21  CH=2 

FI 
FI 
FI 

RETURN 
; 
; 

PROC  SCROLLC) 

IF  SPDcSPEED>=iee  THEN  RETURN  FI 
TIHER==-1 
IF  TIMEROO  THEN  RETURN  FI 

Y  =  =  -l 

IF  y>-l  THEN 

P0KEC54277. Y3     TinER=SPD CSPEED> 
RETURN    FI 

Y  =  15 

5CR==-48    P0KEC54277.15> 

POKECcDL+ie.SCRJ 

TII1ER  =  SPDcSPEED> 

IF    LAP=3    AND     cSCR-288><=SCRT    THEN 

GAI1E  =  2    FI 
RETURN 
; 

PROC  LAPSci 

IF  SCR=SCRT  THEN 

LAP==*1 

SCR=SCRB    FI 
IF    LAP04    THEN 

POKECCOL+IO.SCRJ  FI 
;IF  LAP=4  THEN  GAnE=l  FI 
RETURN 


PROC    TiriEci 
IF    a>=68    THEN 

SEC==+1  a==-68  FI 
IF  SEC>=68  THEN 

MIN==+1  SEC=8  FI 
SECH=5EC^ie 
SECL=5EC  MOD  18 
niNH  =  l1IN^ie 

niNL=niN  noD  le 

UIND0Uc46>=niNH+16 

UIND0Uc47>=niNL+16 

UIND0UC48>=26 

HIND0UC49>=SECH4^16 

UIND0Uc5e>=SECL+16 

MIND0Uc58>=16+CflRS 

RETURN 

; 

PROC    nOUPLci 

JOY=STICKce>     S0UNDce.STcSPEED>.6.61 

TinEH3==+l 

IF  TinER3>15  THEN  TinER3=8 

IF  J0Y=7  OR  J0Y=6  THEN  HP05==+1  FI 
IF  J0Y=11  OR  JOY=10  THEN  HP0S==-1  FI 
POKEC53248.HPOS>  POKE C53249. HP0S> 
IF  J0Y=14  THEN 
SPEED==-1 

IF  SPEEDCl  THEN  SPEED=1  FI 
FI 
IF  STRIGce>=8  OR  J0Y=13  THEN  SPEED==+1 
IF  SPEED>6  THEN  SPEE0=6  FI 
FI 
FI 
RETURN 


PROC  COLLISIONO 
IF  PEEKc53252itte  THEN 
CARS==-1 

IF  CARS>3  THEN  GAnE=l  FI 
;CONTINUE  SCROLL  FOR  A  UHILE 
FOR  X=8  TO  288  DO 

nOUEBLOCKcpn+512+97. CRASH. 9» 

SCROLLci  S0UNDC8.228.2.12> 

FOR  Z=e  TO  288  DO  OD 

SNDRSTO 

nOUEBL0CKcp|1+S12  +  97.CRASH  +  9.9» 

OD 
FOR  X=8  TO  58888  DO  OD 
HPOS=PcLAP» 

POKECcDL+lO.SCRBi  POKE C53248. HPOSa 
P0KEC53249.HP0S1  SCR=SCRB 


continued  on  next  page 
23 


n0UEBL0CKcpn+5t2+97.PnDATfl.9>  S„^„3?  2^„^S  2^o^S  2^.^f  2^„^2  ^^  ^^  ^®  ^® 

fOg  x=e  To'seee  do  od  l\^l   i^e^e  se^se  |e^3e  38^38  38  e  i  a  8 

2!!''!;r.I-i?  .,^„^  o  .^.^  „«,  a  e  e  e  8  e  i  38  38  38  38  38  3b  38  38 

DO    UNTIL    STICKce><>15    OD  38    38    38    38    38    38    a    1    8    8    8    8    8    8    8 

B  =  Z  188888881888888 

FI  8    1    38    38    38    38    38    38    38    38    38    38    38    38    38 

RETURN  38    81888888818888 

.  888188888881    38    38    38 

Pnnr     MATMCI  ^O    ^B    38    38    38    38    38    38    38    38    38    38    38    38    38 

rijui.     nHJ.ni'  38    38    38    38    27    2    8    8    8    8    H    18    27    1    8 

29_.  ^            ^•...     «     -I--     «  8    8    8    8    9    27    27    38    38     38    38    38    38     38    38 

TITLE  CS      niN  =  e     SEC  =  0  38    38    38    38    38    38    38     38    38    38    38    38    38    27    2 
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Spri  T-5fpi     5Frii?=5E?S  8   8   a   a   38   1   8   38   8   8   38   a   isa   iSB   38 

qprVi^Fr  MTMl-MTM  FT  38  8  8  8  8  8  38  38  38  38  38  38  38  38  38 

TF  HTM-MTU1  oSn  ^^r/CFPi  TUFU  38  38  38  30  30  1  0  0  0  39  8  8  8  8  30 

'"^  Siuu.  !!i>.S''£TSFf  ^l£^  ^**^**  1  0  0  0  0  0  8  158  ISa  30  38  8  8  8  0 

einS^'Si!!!!  SiSI-f'^SiHh  38  38  30  30  38  30  38  38  38  38  38  30  30  30  30 

SECH1  =  SECH  SECL1  =  5ECL  100000008  38  1  38  88  38 
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38  8  1  a  a  8  a  a  a  B  1  8  a  a  a  ss  se  38  38  se  56  a  32  32  is8  29  29  29  29  29 
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30  30  38  30  0  0  0  0  30  30  38  30  30  38  30 
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56  56  56  56  56  8  27  27  27  30  30  30  30  30  0 
8  8  8  38  30  38  38  157  157  158  38  30  1  32  0 
0  5  6  27  27  27  27  1  0  8  0  0  0  11  10 
27  27  27  27  3'0  30  30  30  30  0  8  8  0  0  0 
30  38  158  157  157  38  30  1  32  8  8  11  18  27  27 


1  32  32 
8  6  8 


8  27  27 


9  27 
32  32  32  32  32  8  27 

30 


27  27  2  0  0  0  11  10  27  27  27  27  27  27  30 
30  36  30  30  30  30  0  8  8  8  36  38  157  157  158 
38  36  1  8  0  0  5  6  27  27  27  1  0  0  0 
9  27  27  27  27  27  27  27  27  30  30  30  30  30  6 


0  0  0  30  30  158  157  157  36  38  1  0  8 
8  8  9  27  27  27  1  8  0  0  7  27  27  27  27 
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38    36    810000808 

081666006 
8    1    36    38    38    30    30    30    38    30    38    30    30    30    30 
30    81000880818080 
608100606681    36    30    38 
30    30    30    30     30    30    30    30    30    30    38    8 

000080810 

1    30    30    30    30    30    30    30    01 


0    8    8  8    8    1 

8    6    6  6    6    8 

30    36  30    30 

10    8  8    8    0 


0    0    0    0    8    1 
0    0    8    8    0    8 


RETURN 


10    0 


POWERFUL  BASIC  DISK  UTILITY  COLLEQION 


ANTIC-PAK 
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w 

wcr* 

Wmj^     -g                                                                                      Dont  type  the/ 

?s 

liJ 

191. 

MlymW    JL                                                                                       TVPO  II  Codes! 

VJS 

NX 

10    REM    ftNTIC-PftK 

TO 

12    REM    BY    EUGENE    KOH 

QN 

14    REM    cc>1988>     ANTIC    PUBLISHING 

VS 

XO 

16    GRAPHICS    e:POKE    559 . 0 : DL=256»PEEK C5 

61>+PEEKC560> :POKE    DL+3.71!P0KE    DL+6,6 

BT 

:POKE 

DL+7,6!PaKE    710.144 

RH 

18     POKE     712,102!POKE     DL+B-VsPOKE     DL+22 
,5!P0KE     DL+23.6:P0KE     DL+24,6iP0KE     DL+2 

UE 

5,6 

HU 

CO 

20    POKE     DL+26-65:P0KE     DL+27 . PEEK C560> : 

POKE 

DL*28,PEEKC561> :?    "       ftNTIC-PftK" i ? 

••BV 

U.     EUGENE    KOH" 

UT 

on 

22    HUFLG=PEEKtl913J 

DB 

24    ? 

"6HI*lliraonwert    File    to    BftSIC    Loader" 

i? 

zv 

DO 

26    ? 

"liraiH    Connand    Creator":? 

HX 

28    ? 

"LJfsliahtu-CoiuMn    Disk    Directory"!? 

UL 

38    7 

"llHile    ManageMent    Helper"!? 

uv 

DB 

32    ? 

"LUtJarbaae    Renover"!? 

Dl 

TI 

43    ? 

BD 

MAKC 

46    ? 

H  1S>89 

' ■  tdtbBMBEQmmiaaiiiriimHia^BB "!Poke  708.206 

!P0KE    709,  14!  POKE    711,70!?    "   o[i<ant;][:ii;Hr-i 

Uiill[ii"!POKE    559,34 

48    OPEN    »»1,4,0."K!"  !  GET    «1.JNK!CL0SE    « 

50  IF  JNK<67  OR  JNK>71  THEN  ?  "O"  i  •■  GOf 

a    48 

52  JNK=JNK-66 !0N  JNK  GOTO  1100,208,100 

0, 300, 800 

200     GRftPHlCS     0!?     !?     "OIR    COIinAND     MftKER 

"!CL05E    «3!0PEN    «3 , 8 , B , "Dl : DIR" ! DIM    00 

$  C68> 

202    00S=:"CLRiDIMnsc58»  !?!?!OP.««1-7,0.X 

Dn».»X!F.ft  =  lT099!lN.«l;ftS:?ftS;X        Xi  !N. 

ft" 

204    00$ (29,29>=CHR$ t34>  : 00$  (35 , 351 =CHR 

SC34J !OOSC60,60»=CHRSC34> !00St63,63>=C 

HH«<34J 

206    ?    n3;0a$:CL0SE    tt3 

288    ?    "Use    ENTER";CHRS t34J ;"D !DIR    to    9 

continued  on  next  page 
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et  a":?  "diSK  diretoru  anytiHe.  Uhen  u     SJ 

ou  see" 

2ie  ?  "the  ERROR  136,  type  END  or  CLOS 

E  *»1."!END  KL 

300  GOSUB  362IP0KE  1913,87:P0KE  65.0:0     CT 

in  Fscsei ,N$c50> ,x$c5e>  he 

302  ?  "0  =  Oelete  Fi 1 e" ; CHR« <127J ; "L  = 

Lock  File"  TI 

304  ?  "R  =  RenaMe  Fi le"; CHRS tl27> ; "U  =     F5 

Unlock  File" 
306  ?  "ESC  =  Go  back     RETURN  =  No  Ch     CC 
anaes"  lA 

308  ?  !?  :?  "Insert  work  disk  into  dri  GK 
ve  one  and":?  "press  START  to  besin...     PU 

"; iPOKE  559,34 
310  ON  PEEKC53279> <>6  GOTO  3ie:0PEN  u2  NJ 

.4,0."K!"! JNK=1  UB 

312  GOSUB  362:?  "L  FilenaMe  Ext  Size": 
?  :OPEN  «1, 7. 0, "D :«.»"  KP 

314  FOR  FNS  =  1  TO  JNK:INPUT  «»1,FS:NEXT  LJ 
FN5 

316  ON  FSC7,9>="EE  "  GOTO  352:JNK=JNK+ 
l:?  FSC1,10»  ;CHRSC46J  ;FS  cm  ;  "      ";:p      FT 
OKE  559,34  OH 

3ia  GET  *t2.SEL:IF  SEL  =  155  THEN  GOSUB  3 
62:?  "L  Filenane  Ext  Size":?  :INPUT  «1 
.F$:GOTO  316  SU 

320  IF  SEL=27  THEN  JNK=JNK-2!lF  JNK<1 
THEN  JNK=1  B8 

322  IF  SEL=27  THEN  CLOSE  ttl:GOTO  312 
324  ON  SEL068  AND  SEL076  AND  SEL082      BD 

AND  SEL085  GOTO  318 
326  POKE  559,0:NS="D:":FOR  PSN=3  TO  10 
:IF  F$cPSN,PSNi=CHR$c32>  THEN  NEXT  PSN      PS 
:G0T0  330 

328  N$cLENcN$3+li=CHR$CASC CFS CPSN.PSN>  UB 
> J :NEXT  PSN  US 

330  ON  FSC11.13J="  "  GOTO  336:N$(LEN  CO 
CNSJ+1J=CHRS  C4e> 

332  FOR  PSN=11  TO  13:IF  F$ (PSN, PSN> =CH  EP 
RSC32>  THEN  NEXT  P5N:GaT0  336  TI 

3  34  NSCLEN(N$>«1>=CHR$CASCCF$CPSN.PSN> 
>> :NEXT  PSN 

336  IF  SEL=68  THEN  ?  "DELETE":?  :?  "Ok  LV 
ay  to  delete?  ";:POKE  5S9.34:GET  «2,0K  XN 
:0N  0KO89  GOTO  344:P0KE  559,0 

338  ON  SEL=e2  GOTO  346:IF  SEL=68  THEN  SU 
XIO  33,O3.0,0,N$: JNK=JNK-l:GOTO  344  JU 

340  IF  SEL=76  THEN  XIO  35 , «3 , 0 , 0 , NS : GO 
TO  344 

342  XIO  36,tt3,0,O.NS  LI 

344  CLOSE  «*l:GOTO  312 
346  POKE  559.34:?  "RENAME":?  i?  "Enter 

new  f  i  lenane  :":  INPUT  «tl6,X$  XP 

348  POKE  559, 0:N$CLENCNS1+1>=CHR$C441 : 
NScLENtNSJ+U=XS  HG 

350  XIO  32,»3,0,0,N$:CLOSE  ni : GOTO  312 
352  GOSUB  362:CL0SE  »1:0PEN  ol,7,0,"D:      DA 
».»«":TRAP  358:?  "CURRENT  FILE  DIRECTOR      TO 
V:" 
354  ?  :?  "L  Nane     Ext  Size  L  Nane 

Ext  Size":?  :POKE  559,34  OH 

356  INPUT  »«1,FS:?  FS  ;  CHRS  t32>  j  CHRS  t32> 
; :GOTO  356  UU 

358  CLOSE  wi:?  :?  ■7  "DONE!  Press  RESE 
T  to  quit,  or"  XL 

360  ?  "SELECT  to  restart  this  prosraH-  CD 
••  ";:POKE  1913,MUFLG :GOTO  376 

362  GRAPHICS  0:POKE  559.0:POKE  718,192  RC 
:POKE  712,146  oc 

364  ?  :?  "         FILE  MANAGEMENT  HELPE 

R"  SO 

366  ? 

368  ?  :?  :TRAP  370:RETURN 

370  ON  PEEKC195>=136  GOTO  352  QG 

372  GOSUB  362:?  "ERRUR  «  "  ;  PEEK cl 95 J  ;  C 
HRSC253>  OM 

374  ?  :?  "Press  SELECT  to  restart  pros      QU 
ran...  "j:POKE  S59,34:P0KE  1913,WUFLG 
376  ON  PEEKC53279> < >5  GOTO  376:RUN  QF 

800  GRAPHICS  0:TRAP  83e:P0KE  559.0:RES 
TORE  802:FOR  A=70B  TO  712:READ  B:POKE       RB 
A,B:NEXT  A 

802  O=PEEKC560>«PEEK(561>M256 :DATA  70,  BA 
12,160,196,160 

804  POKE  A  +  6,7:P0KE  A  +  7,6:P0KE  65,0:?  ^^y^ 
:DIM  F$C50> 

806  ?  "GARBAGE  REMUUER  ratSBHmPlPimHB  EU 
raPlffl"  :  ?  :?  UQ 

808  ?  "File  to  process:  ":POKE  559.34:      NB 
INPUT  «16,FS:IF  FS=""  THEN  RUN 
810  POKE  752,1:?  :?  :?  "Press  START  to 
be9  in."  ff  y 


812 

S  8 

7 

814 

816 

818 

CHR 

820 

822 

191 

824 

826 

828 

838 

51 

832 

834 


ON  PEEKC53279J <>6  GOTO  812:GRAPHIC 
POKE  S59,0:POKE  77,128:P0KE  1913,8 


•LOAD  ";CHH* t34J ;F« 
•LIST  ■•;CHRS  t34>  ;FS 
?  ••NEW  ••:?  :?  :?  "ENTER-i 

•SAOE  ••;CHH$  c34>  ;FS 

•POKE  77.0:POKE  65,3:P0KE 


?  :  ?  :  ? 

?   :  ?   :  ? 

?  :'>  :  ? 
*C34J ;FS 

?  :?  :? 

9  :')  :  ? 
3;87''' 

?  :?  :?  "POKE  842  ,  12  :  GR  ■  0  :  NEU^^ 

POSITION  2,0 

POKE  842.13:P0KE  1913 . UUFLG : END 

GRAPHICS  81?  >?  "Error  »    ";PEEKci9 

POKE  77,e:P0KE  842.12:P0KE  718.0 
7  :?  "QQPress  OPTION  to  start  ouer 


26 


836  ON  PEEK(53279><>3  GOTO  836:RUN 
1000  GRAPHICS  0t?  :?  "Enter  disk  title 
:••:?  :?  ">>>  ";:DIM  A$  CieO)  ,  B$  C1O01  t  IN 
PUT  016; A$iLPRINT  A$:LPRINT 
1002  CLOSE  ««l:OPEN  «1 .  7  .  0  .  "D  :  *•  .  «" 
1004  FOR  U=l  TO  4:INPUT  nl ; A$ : Be CLEN CB 
S>+1J=AS:IF  ft»C5.9>="FREE  "  THEN  POP  : 
LPRINT  B$:CLOSE  «*1  :  END 

1006  B$CLENCBS>-»1)= NEXT  U:LPRINT 

B$:B$=""!GOTO  1004 

1100  DIM  fl$cl00> .B$cl00} .C«ciee> :CLOSE 

<«l:OPEN  HI. 4.0. "K:" 
1182  GOSUB  1176s?  "Insert  disk  into  dr 
iwe^':?  ••and  press  <RETURN>...  ";:GET  « 
1. JUNK 

1104  GOSUB  1176!TRnP  1108:OPEN  tt2 . 7 . 8 . 
•'Dl  :».♦»•' 

1106  INPUT  n2.A$:?  A$;"   ";:GOTO  1106 
1108  IF  PEEKC195>  0136  THEN  1182 
1118  CLOSE  tt2:?  :?  :?  :?  ••Press  <SPACE 
BAR>  to  continue...  ";:GET  »1.JUNK 
1112  GOSUB  1176 

1114  ?  ••Enter  fiienane  of  prosran  to  c 
onuert  :  ••  :  INPUT  W16.  BS  :  AS  =  "D1 :  "  :  AS  C4  J  =B 

1116  IF  QS  =  ""    THEN  ?  "BBflB^^ ;  :  GOTO  1114 

1118  ?  :?  ••Enter  fiienane  for  new  pro9 

ran:  ••:  INPUT  t«16  .  C$  :  B$  =  '-D1  :  •• :  B$  C4>  =C$ 

1120  IF  CS=""  THEN  ?  "ffifflffi";:GOTO  1118 

1122  ?  :?  ••Enter  line  nunber  to  start 

at:^^:INPUT  ttl6,LN:IF  LN<0  OR  LN>10000 

THEN  ?  ••EeaElfi^^;  :GOTO  1122 

1124  ?  :?  "Enter  increnent:  10fflBB^^;:INP 

UT  «16.I:IF  Kl  OR  I>50  THEN  ?  "BBBBSl";: 

GOTO  1124 

1126    ?     :?    ••Press    <RETURN>    when    ready    t 

o    besin.     ••jsGET    xl.JUNK 

1128  GRAPHICS  18:P0SITI0N  5.4:7  «6;^^nffl 

RkEIEiOGHBa-sPOKE    65.8 

1130  OPEN  «t2.4.0.  A$:  OPEN  n3.8.0.B$ 

1132  ?  «3;LN;^^GH.0:?:?^^;CHRS:c34>  j-CHEC 

KSUn  LOADER  BY  EUGENE  KOH";  CHR$  (34)  ;  ••  > 

OPEN  «<3.8.0.^^;CHR$(34>  ;  A$:LN  =  LN  +  I 

1134  ?  «3;LN;^^  READ  A:IF  A  =  -l  THEN  CLO 

SE  n3:G0T0  •• ;  LN  +  I  +  I  :  PZ  =  LN*I  +  I  :  LN  =  LN  +  I 

1136  7  «3;LN;"  PUT  tt3. A : CNT=CNT+A : GOTO 

••.•LN-I:LN  =  LN  +  I  +  I  +  I 
1138  TRAP  1144:?  «3;LN;"  DATA  ••; 
1140  FOR  DA=1  TO  15:GET  a2 . N : PCT=PCT+N 
:?  «3;N;:IF  DA<15  THEN  7  «3;".^'; 
1142  NEXT  DA:LN  =  LN  +  I:?  «t3  :  GOTO  1138 
1144  IF  PEEKC195>  0136  THEN  CLOSE  »2 :  C 
LOSE  n3:P0P  :GOTO  1182 

1146  7  »3;"-l":?  «3;PZ;^^  IF  CNT<>";PCT 
;••  THEN  ?CHRSC253>  ;";CHHSt34J  ;^^ERROR  I 
N  DATA  STATEMENT5!";CHRSC34» ;":END" 
1148  7  «3;PZ  +  I;^^  ?••;  CHRS  c34J  ;  "NO  ERROR 

1150  CLOSE  o2:CL0SE  t<3:P0P 

1152     GOSUB     1176:?    ••■ElBfflBfCiailllHHB"  :  ?     :?     •• 

Please    choose:^':? 

1154     7    ••[]0nExit    to    DOS":?    ••LiraLlExit    to 

BASIC":?    ••ITtariStart    ouer^^:? 

1156    ?    ••Please    enter    your    choice:i:i    FiBRfH 

1158    GET    «1.AD:IF    AD<65    OR    AD>67    THEN 

1158 

1160  ?  CHR$  (AD  +  128>  ;••»";:  AD  =  AD-64  :0N  A 

D  GOTO  1162,1164,1186 

1162  CLOSE  ttl:DOS 

1164  CLOSE  »l:GRAPHICS  0 

1166  GRAPHICS  0:?  :?  "Enter  disk  title 

:  "  :  7  :?  "  >  >  >  •■;:DIM  AS  (1001  ,  B$  (1001  :  IN 

PUT  »16; AS:LPRINT  AS:LPRINT 

1168  OPEN  «1,7. 0. "D:*.*" 

ANTIC  SOFTWARE  LIBRARY 


OT 


BI 

GA 
UU 

5P 


1170  FOR  0=1  TO  4iINPUT  «1 ; ftS : BS tLEN cB 
$i+li=ft$:IF  ft«c5,9»="FREE  "  THEN  POP  i 
LPRINT  B$:CLOSE  »l:END 

1172  BS CLENCBS>+1>= NEXT  U:LPRINT 

BS:BS  = GOTO  1170 

1174  END 

1176  GRAPHICS  0:POKE  710.196iPOKE  712. 

196:P0KE  709,15 

1178  ?  "     ■■a[umr^gBr^[:«iin(iiiHn[i;«[ar:iii]C!iB 


RB 

RL 

ZS 

OK 
GT 


■"  :  ?  '■         By  Eugene  Koh" 

1180  ?  "BeHeBBeeeBeHHBiHBeHHeBeeeeBeHaB 

HeeeeeH":?  strap  ii82: return 

1182  GOSUB  1176:?  "ERROR  «  "iPEEKclSSl 

;"ia"!  ? 

1184  ?  "Press  <SPACEBAR>  to  restart... 

";  :GET  ttl,  JUNK 
1186  RUN 
1188  END 


ALL  THE  CARDS  ARE  FACE  UP,  SO  THERE'S  NO  EXCUSE 

BAKER  SOLITAIRE 
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LISTING  1 


Don't 
TYPO 


type  the 
II  CodesI 


LL 
ML 

ap 

LO 
QH 
BK 

RZ 

VB 

JO 


UC 


EK 
DC 


RJ 


NH 
JT 


XA 


HA 


OC 

NJ 
BL 

as 

PV 
MS 


MA 
JC 
CX 


CU 
QZ 

UU 


MI 

JM 

AM 

AL 

FM 
SP 


IB  REM  BAKER  SOLITAIRE 

12  REM  BV  TOn  CLINE 

15  REM  CC11988.  ANTIC  PUBLISHING 

20  CLOSE  ttliOPEN  wl, 4. 0, "K = " i GOTO  30 

22  MIN=0:ON  SUITS-1  GOTO  24,25.26 

24  X=USR CB AND, PEEK tSCR+TLJ ,63 J :MIN=CX= 
43)  :RETURN 

25  X=USRtBAND,PEEKcSCR+13J .PEEK<5CR+TR 
1, 631  :MIN=(X=43>: RETURN 

26  X=USRCB AND, PEEK cSCR+TLJ. PEEK cSCR+13 
»  .PEEKCSCR  +  TRJ  ,  63>  !HIN=cX  =  43>  -.RETURN 
30  DIM  CARDS (52> ,TEnCRD$cli . CN(254> , BR 
C20> ,A$c2e>,B$c20>,C$(20i,D$(28>,FSc20 
> , BLINKS c20> ,UNSHUF$c52) 

40  DIM  BEFCOLSc300> , BEFROMS C300> , AFTCO 
L$C30ei , AFT ROMS €3001  .CRD REUS (3001  ,  MARK 
(101 ,BANS(22> 

45  BANs="hcaaaaan[Uh>'.[iiac(JK>'.Daai][ass'- :  band= 

ADRcBANSi 

50  CARDS  =  "A23456789TJBKaBSnHDeentJqKGia 

BEisrsBmsaniEQEnncBnnBnDBGiia"  :unshuf$=card 

SiREM  DECK  OF  UNSHUFFLED  CARDS 

60  FOR  K=l  TO  52:CN(ASCCCARD$ cK,Ki>>=K 

:NEXT  KiREM  POSITION  OF  A  CARD  IN  CARD 

$ 

70  IF  PEEKC1536J=72  THEN  120 

80  RESTORE  B0:FOR  K=0  TO  61:READ  BVTE: 

POKE  1536+K,BYTE:NEXT  KiREM  DLI  FOR  LO 

MER  CASE  LETTERS 

90  DATA  72.169,12,141,10,212,141,22,20 

8,169,86,141,23,208,169,8,141,24.208.1 

69.226.141.9.212,169 

100  DATA  31,141,0,2,104,64,72,169,224, 

141,10,212,141,9,212,169,36,141.22,288 

,169,198,141,23,208 

110  DATA  169,148,141,24,208,169,0.141, 

0,2,104,64 

120  GRAPHICS  17:P0KE  712,224 

130  REM  NUMBER  OF  SUITS 

140  DS="n"iDS tl3>=DS:D*c2»=DS 

158    POSITION    3,4:?    »6 ; DS : POSITION    3,5: 

Ztt6;"enter    ecatlor    ffl" 

168  POSITION  3,6:? 

:POSITION    3,7:?    tte  j 

N    3,8:?    <*6:DS 

170  GET  nl,R:GOSilB  1160 

180  IF  R<58  OR  R>52  THEN  120 

190  5UIT5=R-48:ST=5UIT5:REM  ST  IS  NUMB 

ER  OF  EMPTY  PARKING  SPACES  cGOLD  STARS 

208  REM  OLI  FOR  L . CASE  LETTERS 
210  GRAPHICS  17:P0KE  712.12:P0KE  708.3 
6:P0KE  709.198:POKE  711.8 

220  MOUE=l:ER=-l:PLACE=8:BL=0:TRUE=l:F 
ALSE=8:M0UGRP=FALSE:GRAPH=FALSE:MARK=F 
ALSE 

238  DMA=PEEKC5591 :POKE  559 . 0 > SCR=PEEK c 
88»+PEEKc89>»256 

240  DL=PEEK(560l+256«PEEK(561> :POKE  DL 
+6,134:P0KE  DL+9,134 

250  POKE  512,0:POKE  513.6:PaKE  54286.1 
92 

260  REM  INIT  &  DISPLAY  LC  LETTERS  &  ST 
ARS 

270  S=SUITS 
280  IF  S=4  THEN  AS 
P 


«t6;"far  the  nunber" 
•of  SUitsa":POSITIO 


WXUZ" : FS=' 


a  b  c  d  e 


WWMM 

•:CS=" 
f  9  h" 


IklUBb"  :  B 
JKin 


ET 
RK 
UR 
JG 
LB 


HG 
RR 

ZX 


FY 
ML 

PC 

GM 
MR 
UI 

HO 

ON 
GF 
MU 
YJ 
OZ 

LR 
GB 

MM 
DS 
TG 
GX 
JL 

EC 
RD 

TX 

HH 
MU 
RU 
UN 

DD 

KY 

SI 

LN 

XY 

JD 


290  IF  S=:4  THEN  DS  =  ' 


eSHBHHB&IHHHHBBB 


300  IF  S=4  THEN  FL=2 : REM  LCOL.  OF  FIE 

LD 

310  IF  S  =  4  THEN  TL  =  11 : TR  =  14 : REM  L . *R  . 


COLS.  OF  TERM 

320  IF  5=4  THEN  PL=4:PR=7 

LS.  OF  PARKING 

330  IF  S=3  THEN  AS= 


REM  L.&R.  CO 


f 
abed 
THEN  DS=" 
THEN  FL=4: 


JKl 


B 


www 
:CS  =  " 

e  f  s" 
TL=12:TR=14:PL=6: 


WW    kiB"  :  BS  = 
jK    wx":F 


THEN  AS=" 

t":CS=" 
c  d  e  f" 

THEN  Ds="    HBeeeeeHHee" 

THEN  FL=4  :TL  =  ll:TR  =  12:PL  =  6i 
:?  tt6;BS:?  tt6;CS:?  tt6;DS:? 


1    STEP    -l:X=INTclw 


MARCH  1989 


S  =  "      p 
wx«*"  :FS  =  " 
340  IF  5=3 
350  IF  5=3 
PR  =  8 
360  IF  5=2 

P 
S  =  "     a  b 
370  IF  S=2 
380  IF  S=2 
PR  =  7 

390  ?  ««6;ASi 
«»6;FS 

408  REM  SHUFFLE 
410  LA5TCD=13«SUIT5 
420  FOR  I=LASTCD  TO 
RNDce>i+l 

430  TEMCRD«=CARDSCX.X>:CARDCCX.X>=CARD 
«cl,I> :CARO*(I,I>=TEMCRDS>NEXT  I 
448  REM  DISPLAY  CARDS 
458  FOR  R0M=8  TO  SUITS+1 
468  POSITION  FL,R0M+6 
470  FOR  COL=0  TO  SUITS+3 

488  ?  tt6iCRRDScc5UITS'«'4>wR0M  +  C0L  +  l,  (SU 
ITS+4JMR0H+COL  +  U  ;"  " > 
498  NEXT  CQLiNEXT  ROM 

see  FILLNU=cCOL>NCROM> :REM  n    OF  CARDS 
IN  FILLED  ROMS  (BEFORE  BOTTOM  ROM> 
518  POSITION  FL.ROM+6 
528  FDR  K=FILLNU+1  TO  LASTCD 
538  ?  tt6;CARD$cK,K> ;"  "i 
548  NEXT  K 

550  CDSBOT=LASTCD-FILLNU:REM  **  OF  CARD 
5  IN  BOTTOM  ROM 
568  FOR  K=e  TO  5UITS+3 

570  IF  K<CDSBOT  THEN  BR CFL+2»K» =8+SUIT 
5:REM  BRcCOLi  IS  BOTTOM  ROM  OF  COL 
588  IF  K>=CDSBOT  THEN  BR CFL+2»K> =7+5UI 
TS 

590  NEXT  K 

600  POKE  559.DMA:REM  TURN  ON  SCREEN 
618  REM  1ST  KEY 

628  X=USR(BAND.PEEK(SCR+12),63> :IF  X=4 
3  THEN  GOSUB  22:IF  MIN  THEN  28000 
625  IF  PEEK(764>=255  THEN  POKE  77,0:G0 
TO  620:REM  DISABLES  ATTRACT  MODE 
638  GET  *tl,KEY:OLDKEY  =  KEY:GOSUB  1160:A 
=  KEY 

648  IF  0LDKEY=155  THEN  ER=3:G0SUB  1210 
:ER=-1:G0T0  620:REM  ER  IS  ROM  OF  ERROR 
650  IF  A>=74  AND  A<=74*5UITS-1  THEN  88 
0:REM  CARD  TO  BE  MOUED  15  FROM  PARKING 
660  IF  A  =  84  THEN  GOSUB  2360  :  IF  ERO-1 
THEN  EH=-l:GOTO  620 

670  IF  A=84  AND  MOUGRP=FALSE  THEN  POSI 
TION  TR  +  2,l:?  t«6  ;  "D"  :  MaUGRP  =  TRUE  :  GOTO 
628 
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668  IF  A=84  AND  MDUGRP  THEN  POSITION  T 

R  +  2,li?  tt6;"f 'snOUGRP  =  FALSE>GOTO  620 

699  IF  ft=27  THEN  CLR  :GOTO  20 

788  IF  fl=88  THEN  GOSUB  1188:G0T0  628 

718  IF  A  =  32  AND  MOUEOl  THEN  GOSOB  192 

BiGOTO  62e:REn  RESTORES  PREUIOUS  POSIT 

TONS  ■ 

728  IF  CA>=87  AND  A< =9e+SUITS-4l  THEN 

B  =  gjg«'LB  =  A-87  +  TL!ER  =  2>  GOSUB  12ie.ER=-l 

738  IF  CA<6S  OR  «> c77+SUITS-4> »  OR  CA> 

=c73+SUITS-4»  AND  fl<=73»  THEN  ER=3iG0S 

UB  1218sER=-l:G0T0  628 

748  C0LA=2»cA-65>+FL:REn  COLUMN  OF  CAR 

0  TO  HOME  cFROtI  FIELD! 

758  IF  CA>=65  AND  A <=72+SUITS-4>  AND  B 

RcC0LA>=5  THEN  B  =  A  :  COLB  =  COLA : ER  =  4 : GOSU 

B  12ie:ER=-l:G0T0  628 

768  R0UA=BRCCDLA1 iREM  ROU  OF  CARD  TO  M 

778  COLOR  A+128!PL0T  COLA, 4 

788  LOCATE  COLA. ROUA. CODEA : REM  CODEA  I 

S  ATASCII  FOR  CARD  TO  BE  MOUED  cFROM  F 

lELDi 

798  GOTO  B50!REM  GET  2ND  KEV 

888  C0LA  =  A-74  +  FL  +  2:R0UA  =  8:REI1  COLUMN  A 

ND  ROU  OF  CARD  TO  MOUE  cFROM  PARKINGi 

818  LOCATE  COLA. ROUA . CODEA 

828  IF  CA>=74  AND  A < =77+SUITS -4 J  AND  C 

0DEA=42  THEN  B  =  A : CaLB  =  A-74  +  PL  :  ER  =  2 : GOS 

UB  1210:ER=-1 :GOTO  628 

830  COLOR  A+128:PL0T  COLA. 2 

848  REM  2ND  KEV 

850  IF  PEEKC764>=255  THEN  POKE  77,0:GO 

TO    850 

860    GET    ttl.KEy:OLDKEV=KEV:GOSUB    1168.B 

=  KEV 

878  IF  0LDKEV=155  THEN  ER=3:G05UB  1218 

:ER=-l:GOTO  628 

888  IF  B=27  THEN  CLR  :GOTO  20 

890  IF  B=80  THEN  GOSUB  lie0:GOTO  858 

980  IF  B=84  AND  nOUGRP  THEN  POSITION  T 

R+2.1!?  «6;"t":nOUGRP=FALSE:COL0R  A+32 

:PLOT  C0LA.4:G0T0  628 

910  IF  B=84  AND  M00GRP=FAL5E  THEN  ER=1 

!C0LB=TR+2iG0SUB  1210 : ER=-1 : GOTO  850 

920  S=4-5UIT5 

938  IF  B<65  OR  cB>77-S  AND  B<a7>  OR  B> 

90-S  OR  CB>  =  73-S  AND  B<  =  73>  THEN  ER  =  3 : 

GOSUB  12ie:ER=-l:G0T0  850 

940  IF  B=A  AND  CB>=65  AND  B<=72-SJ  THE 

N  COLOR  A+32!PL0T  C0LA.4:G0T0  620 

950  IF  B=n  AND  cB>=74  AND  B<=74+SUITS- 

1>  THEN  COLOR  A+32SPL0T  C0LA.2:G0T0  62 

8 

968  IF  CA>=74  AND  A<=77*SUITS-4>  AND  c 

B>=74  AND  B<=77+5UITS-4»  THEN  C0LB=B-7 

4+PL:ER=2:G0SUB  1210 : ER=- 1 : GOTO  858 

970  IF  nOUGRP  THEN  GOSUB  2380:IF  ER=-1 

THEN  628 
988  IF  nOUGRP  THEN  ER=-1 
998  IF  CB>=65  AND  B<=72> 

A<=72  THEN  GOSUB  1388 
1880  IF  (B>=74  AND  B<=77>  AND  A>=65  AN 
D  A<=72  THEN  GOSUB  1438 
1010  IF  CB>=87  AND  B<=90> 
D  A<=72  THEN  GOSUB  1550 
1028  IF  <B>=65  AND  B<=72> 
ND  A<=77>  THEN  GOSUB  1608 
1038  IF  CB>=87  AND  B<=9e> 
ND  A<=77>  THEN  GOSUB  1748 
1040  IF  ER=-1  THEN  620 
1050  IF  ERO-1  THEN  ER=-1:G0T0  858 
1060  REM  MARKS  POSITION 

1070  PLACE=PLACE+1!IF  PLACE>10  THEN  PL 
ACE=10:REM  CAN  MARK  TEN  PLACES  ONLV 
1080  MARKcPLACE>=MOUE:MARK=FALSE 
1090  RETURN 

1100  IF  MARK  THEN  MARK=FALSE : POSITION 
FL.li?  «<6;"P":  RETURN 
1110  MARK=TRUE 
1120  POSITION  FL.li?  ♦»6;"ia" 
1130  SOUND  0.100.10. 12:F0R  K=l  TO  100) 
NEXT  KsSOUND  0.8.8,8 
1148  RETURN 

1158  REM  LOMER  8.    INU  TO  UPPER  CASE 
1168  IF  KEy>  =  128  THEN  KEV::KEV-128 
1170  IF  PEEKc782l=0  AND  KEV>96  THEN  KE 
V=KEV-32 

1180  POKE  702.64SPOKE  694.8 
1190  RETURN 
1208  REM  PLOT  ERRORS 
1218  IF  ER03  THEN  EC  =  COLB  :  BLINK$  =  CHR$ 


^GOTO  850 
AND  A>=65  AND 


AND  A>=65  AN 
AND  CA>=74  A 
AND  CA>=74  A 


BT 

ZN 
UF 
BR 

BQ 
OV 

LT 

RU 
CH 
IF 
CK 

SR 


ZH 
ZR 
UZ 
BL 

CF 
PS 


UU 
JA 

as 

OX 
RZ 
CU 


JL 

SR 

UH 
5F 
BL 
SL 
DD 
AS 
QV 
KK 

IX 


OK 

JN 
EH 
CN 
IL 
CO 

SX 


ZS 
DI 
MF 
RQ 
AJ 
XA 
FP 
DE 
AT 
UG 
UU 
SI 
MA 

MD 
UN 
AO 
FR 
DG 
AU 
JC 
UV 
XK 


HU 
SO 
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«B+32» 

1220  IF  ER=3  THEN  EC=8 : BLINK$=D$ > REM  L 

INE  BETUEEN  LETTERS 

1238  FOR  K=8  TO  6 

1248  POSITION  EC.ER 

1258  IF  ER  =  3  THEN  ?  «6 ;  ■■ 

It 

1260    IF    ER03    THEN    7    «6;"    " 

1270    FOR    J=l    TO    20:NEXT    J:POSITION    EC. 

ER:?    «t6;BLINK$ 

1288  FOR  L=l  TO  20:NEXT  L:NEXT  K:RETUR 

N 

1290  REM  FIELD  TO  FIELD 

1300  C0LB=2»<B-65>+FL 

1318  LOCATE  COLB. BR cCOLBi . CODEB 

1328  IF  CNcCODEBlOCNcCODEAi+1  AND  BR  c 

C0LBIO5  THEN  ER=4  :  GOSUB  1218:RETURN 

1338  KG=CNCC0DEA1 !IF  cKG=13  OR  KG=26  0 

R  KG  =  39>  AND  CN  (CODEB> =KG  +  1  THEN  ER=4i 

GOSUB  1210iRETURN 

1348  R0UB=BR(C0LB>+1 

1358  POSITION  COLA. ROUA:?  «*6 ;  "  " 

1368  COLOR  CODEAiPLOT  COLB.ROUB 

1370  BR CC0LA>=BRCC0LA>-1: BR CCOLBI =BRCC 

OLBj+1 

1388  COLOR  A+32:PL0T  COLA. 4 

1398  IF  BRCC0LA>=5  THEN  BL=BL+l!REM  5 

IS  THE  TOP  ROU  OF  FIELD.  BL  IS  NUMBER 

OF  BLANK  tEMPTVJ  COLUMNS 

1488  IF  BRtC0LB>=6  THEN  BL=BL-1 

1418  GOSUB  1840:RETURN 

1428  REM  FIELD  TO  PARKING 

1438  CaLB=B-74+PL:R0UB=e 

1448  LOCATE  COLB , ROUB. CODEB 

1458  AA=CNcCBDEAi :IF  AA=1  OR  AA=14  OR 

AA  =  27  OR  AA  =  48  OR  C0DEBO42  THEN  ER  =  2: 

GOSUB  1218:RETURN 

1460  ST  =  ST-1:REM  ««  OF  EMPTY  PARKING  SP 

ACES 

1478  POSITION  COLA.ROUAi?  <«6 ; COLOR 

CODEA 
1480  COLOR  CODEA:PLOT  COLB.ROUB 
1490  BRcC0LA>=BR(CaLAi -1 
1580  CBLOR  A+32SPL0T  COLA. 4 
1510  IF  BR(C0LA>=5  THEN  BL=BL+1 
1520  GBSUB  1848 
1530  RETURN 

1548  REM  FIELD  TO  TERMINAL 
1550  C0LB=B-87+TL!R0UB=8iL0CATE  COLB.R 
OUB. CODEB 
1560  An=CNcCODEA> :IF  CAA=1  OR  AA=14  OR 

AA=27  OR  nA=48>  AND  CODEB=10  THEN  COS 
UB  1470SRETURN 

1570  IF  cCNfCODEBiOCNccODEAa-li  OR  CO 
DEB=18  THEN  ER=2:G0SUB  1218:RETURN 
1580  GOSUB  14?e:RETURN 
1590  REM  PARKING  TO  FIELD 
1680  C0LB=2»cB-65>+FL 
1618  LOCATE  COLB . BR (COLBi . CODEB 
1628  IF  CNCC0DEB><>CNCCBDEA1+1  AND  BRc 
C0LB1O5  THEN  ER  =  4  :  GOSUB  1210:RETURN 
1630  KG=CNCC0DEA> :IF  tKG=13  OR  KG=26  0 
R  KG=39J  AND  CN cCODEB* =KG+1  THEN  ER=4 : 
GOSUB  121Q:RETURN 
1648  RaUB  =  BR(C0LB>4^1 
1658  POSITION  COLA. 8:?  U6i"»" 
1668  COLOR  CaDEA:PLOT  COLB.ROUB 
1670  BR(C0LB>=BR<C0LB>+1 
1688  COLOR  A+32iPL0T  COLA, 2 
1690  IF  BRcC0LB>=6  THEN  BL=BL-1 
1700  5T=ST+1 
1710  GOSUB  1840 
1720  RETURN 

1730  REM  PARKING  TO  TERMINAL 
1740  COLB=B-87+TL>ROUB=0 
1758  LOCATE  COLB. ROUB . CODEB 
1760  IF  CNccODEBiOCNccODEAi-1  OR  CODE 
B=10  THEN  ER=2:GBSUB  1218>RETURN 
1770  POSITION  COLA. ROUA:?  u6t"*f 
1780  COLOR  CODEAiPLOT  COLB.ROUB 
1790  COLOR  A+32IPL0T  COLA. 2 
1880  ST=ST+1 
1810  GOSUB  1848 
1828  RETURN 

1838  REM  RECORD  OF  MOUES 
1848  SOUND  8.18e.l8.12:M=M0UE 
1858  CRDREM$CM.M>=CHR$CC0DEA1 :BEFCOL$c 

M.Mi=CHR$cCOLA> iBEFROU$<M.M>=CHR«cROUA 
1 

1868  AFTC0L«cM.M>=CHR$cC0LBi:AFTR0UScM 

.M>=CHR$cROUB> 

1878  FOR  K=l  TO  10:NEXT  K:SOUND  0.8.0. 
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1888  IF  MARK  THEN  GOSUB  1878 s POSITION 

FL,l;?  «6;"P" 

1898  naUE=MOUE+l:IF  nOUE>388  THEN  MOUE 

=3ee:REn  can  record  3ee  nouES 

1988  RETURN 

1918  REM  RESTORE  PREUIOUS  POSITION 

1928  nOUE  =  nOUE-l:n  =  t10UE:nARK=FALSE:P05 

ITION  FL,l:?  ««6;"P" 

1938  BR=ASCcBEFROU$ cn.nii s BC=ASC cBEFCO 

LStH.na  ■■Rtn    BR  IS  BEFORE  ROM 

1948  AR=ASCcAFTROU$ cn.nii : AC=A5C cAFTCO 

LSCM.MJJ  :CR  =  ASCcCRDREn$<:l1.n>> 

1958  IF  BR>=6  AND  AR>=6  THEN  GOSUB  283 

e:REM  FIELD  TO  FIELD 

1968  IF  BR>=e  AND  cAR=e  AND  CAC>=PL  AN 

D  AC<=PR>)  THEN  STAR=42 : GOSUB  2130 

1978  IF  CBR=8  AND  (BC>=PL  AND  BC<=PRi> 

AND  AR>=6  THEN  GOSUB  2288 
1988  IF  CBR=8  AND  cBC>=PL  AND  BC<=PRii 

AND  cAR=e  AND  cAC>=TL  AND  AC<=TR>>  TH 
EN  GOSUB  2278 

1998  IF  BR>=6  AND  (AR=e  AND  cflC>=TL  AN 
D  AC<=TRii  THEN  GOSUB  2380 
2088  IF  nARKcPLACE>=nOUE  THEN  GOSUB  11 
20  s  MARK cPLACEl=0sPLACE  =  PLACE-l:POSITia 
N  FL-l!?  «6;"P" 
2818  RETURN 

2828  REH  RESTORE  FIELD  TO  FIELD 
2838  POSITION  ACAR:?  «6  s  "    " 
2848  COLOR  CRsPLOT  BC^BR 
2850  BRCBC>=BRCBC>+1:BRCAC>=BRCAC>-1 
2860  LOCATE  AC  ,  AR^^l ,  CODECH 
2078  IF  C0DECHO32  AND  BR  =  e  THEN  BL  =  BL 
-1 

2888  IF  C0DECHO32  THEN  AR  =  AR-M  :  BR=:BR  + 
l!CR  =  CODECH:GOTO  203e:REI1  GROUP  nOUES 
2898  IF  BRCBC>=6  THEN  BL=BL-1 
2108  IF  BRCAC>=5  THEN  BL=BL*1 
2118  RETURN 

2128  REM  RESTORE  PARKING  TO  FIELD 
2138  COLOR  STAR:PLOT  ACAR 
2148  COLOR  CRiPLOT  BCBR 
2158  BRCBCI=BRCBC>+1 
2168  IF  BRcBC>=6  THEN  BL=BL-1 
2170  ST=ST+1 
2188  RETURN 

2190  REM  RESTORE  FIELD  TO  PARKING 
2288  POSITION  ACAR:?  «*& ;  "  " 
2210  COLOR  CR:PLOT  BC>BR 
2220  BRcACi=BRcACi-l 
2230  IF  BRCAC>=5  THEN  BL  =  BL'»1 
2240  ST=ST-1 
2250  RETURN 

2260  REM  RESTORE  TERMINAL  TO  PARKING 
2270  COLOR  ASCCUNSHUFSCCNCCRI -l.CNcCRi 
-1>>:PL0T  AC,AR:COLOR  CRiPLOT  BC,BR:ST 
=  ST-1 

2280  RETURN 

2298  REM  RESTORE  TERMINAL  TO  FIELD 
2380  IF  CN(CR>=1  OR  CNcCR>=14  OR  CNfCR 
1=27  OR  CNcCR>=4e  THEN  COLOR  18'PLOT  A 
C.AR:GOTO  2328 

2310  COLOR  ASCCUNSHUF$CCNCCR1 -l.CNcCRi 
-IJ  J  sPLOT  ACAR 

2328  BRcBC>=BRcBCi+l:IF  BRcBCi=6  THEN 
BL=BL-1 

2330  COLOR  CR:PLOT  BCBR 
2340  RETURN 
2358  REM  GROUP  MOUE 

2368  IF  BL  +  ST<1  THEN  ER  =  1  >  C0LB  =  TR-»2  :  B  = 
116-32:G0SUB  1210 
2370  RETURN 

2380  IF  B>=74  AND  B < =74+SUITS-l  THEN  C 
aLB=B-74+PL:ER=2: GOSUB  1210: RETURN 
2398  IF  B>=87  AND  B < =87+5UITS-l  THEN  C 
0LB=B-87+TL:ER=2: GOSUB  1210: RETURN 
2400  C0LB=2»cB-65»+FL 
2410  LOCATE  COLO  ,  BR cCOLB> , CODED 
2428  GOSUB  248e:REn  DETERMINES  NUMBER 
OF  CARDS  TO  BE  MOUED 

2438  IF  C0DEBO32  THEN  GOSUB  2648 
2448  IF  ER=-1  AND  C0DEB=32  THEN  GOSUB 
2788 

2450  IF  ER=-1  AND  C0DEBO32  AND  GRAPH 
THEN  GOSUB  2788 
2460  RETURN 

2470  REM  u    OF  CARDS  TO  MOUE 
2480  J  =  l : GRPR0U=R0UA  >  TEnC0D  =  C0DEA 
2490  LOCATE  COLA. 6RPR0U-1 . CODEC > LAST J= 
J 

2500  IF  CNcCODEG>=CNcTEMCODi->-l  THEN  J  = 
J+l>TEMCOD=CODEG:eRPROU=GRPRau-l 
XUI2510  IF  J=l  THEN  ER=4 : COLB=COLA : B=A+12 
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NU 

KX 
UU 


GU 

FQ 

NO 
AZ 
ES 

IP 

LL 

DS 
MS 
RH 
QV 

FU 

HX 

SP 

SD 

ZR 

UP 

HO 

HT 

OU 


EO 
BG 
CJ 
CY 
FG 

GS 

GQ 
BY 
LL 
DX 

TE 
HM 
CY 

MU 
BR 
ZU 


CM 

PS 

RE 
XO 


8-32:G0SUB  1210 : RETURN 

2520  IF  C0DEBO32  AND  LASTJ<J  THEN  249 

0 

2530  IF  C0DEBO32  THEN  RETURN 

2540  IF  C0DEB=32  AND  J=LASTJ  THEN  LOCA 

TE  COLA,GRPROM,CODEG:LOCATE  COLA.GRPRO 

H-1.C0DEH:IF  CaDEH<>32  THEN  RETURN 

2550  IF  C0DEB=32  AND  C0DEH=32  THEN  ER= 

4:C0DEH=-l:G0SUB  12ie:RETURN 

2560  IF  BL=1  AND  ST=0  THEN  ER=4 : GOSUB 

1210:RETURN 

2570  IF  BL=1  AND  J<ST*1  THEN  2490 

2588  IF  BL=2  AND  J<2+2»ST  THEN  2498 

2590  IF  BL=3  AND  ST=0  AND  J<4  THEN  249 

0 

2600  IF  ccBL=3  AND  5T=1>  OR  cBL=4  AND 

ST=0ii  AND  J<7  THEN  2490 

2610  IF  ccBL>=3  AND  ST>=2J  OR  cBL>=4  A 

ND  ST>=1>  OR  BL>=5»  AND  J<12  THEN  2490 

2620  LASTJ=J:GOTO  2540 

2630  REM  GROUP  MOUE  FOR  C0DEBO32 

2640  LOCATE  COLA, GRPROU, CODEC 

2650  IF  CNcCODEBiOCNcCODEO+1  THEN  ER 

=4:G0SUB  1210:RETURN 

2660  IF  BL=0  AND  J<=ST+1  THEN  GRAPH=TR 

UE:RETURN 

2670  IF  BL+ST=1  AND  J=2  THEN  GRAPH=TRU 

E:RETURN 

2668  IF  ccBL=l  AND  ST=1>  OR  cBL=2  AND 

ST=0J>  AND  J<=4  THEN  GRAPH=TRUE : RETURN 

2690  IF  CBL=1  AND  ST=2»  AND  J<=6  THEN 

GRAPH=TRUE:RETURN 

2700  IF  ccBL=2  AND  ST=1>  OR  cBL=3  AND 

ST=8l>  AND  J<=7  THEN  GRAPH=TRUE : RETURN 

2710  IF  CBL=1  AND  ST=3J  AND  J<=a  THEN 

CRAPH=TRUE:RETURN 

2720  IF  cBL=l  AND  ST=4»  AND  J<=10  THEN 

GRAPH=TRUE:RETURN 
2730  IF  cBL=2  AND  ST=2»  AND  J<=11  THEN 

GRAPH=TRUE:RETURN 
2740  IF  ccBL>=3  AND  ST>=1»  OR  CBL>=4  A 
ND  ST>=0»J  AND  J<=11  THEN  GRAPH=TRUE:R 
ETURN 

2750  GRAPH=FALSE:ER=4:G0SUB  1210 
2760  RETURN 
2770  REM  MOUES  GROUP 
2780  FOR  L=0  TO  J-1 

2790  POSITION  COLA,GRPROU  +  L:?  n6 ; P 

=CNcTEMCOD> : ROMB=BR cCOLBl +1 

2808  COLOR  ASC tUNSHUF$cP-L,P-L>> :PLOT 

COLB,ROMB+L 

2810  NEXT  L 

2820  COLOR  A+32:PL0T  COLA, 4 

2830  POSITION  TR  +  2.1!?  «»6;"f 

2848  BRcCOLA>=BRcCOLAi-J:BRcCOLBl=BRcc 

OLBJ+J 

2858  IF  BRCC0LA>=5  THEN  BL=BL+1 

2868  IF  C0DEB=32  THEN  BL=BL-1 

2870  ROUA=GRPROU:CODEA=CODEG:GOSUB  184 

8 

2888  M0UGRP=FALSE:GRAPH=FALSE 

2898  RETURN 

20000  GRAPHICS  18:P0KE  712 , 66 : POSITION 

6,4:?  n6;"UINNER":P0SITI0N  8,5:?  «t6 ;  •■ 
IN" 

28818  POSITION  6,7:?  tte;M0UE;"  MOUES": 
POKE  764,255 

20828  POKE  708,PEEKc20i :X=USRCBAND,PEE 
KC20> ,631 :SOUNO  0,X.14,14 
20038  IF  PEEK<764i=255  THEN  28828 
20048  POKE  764,255:S0UND  e,O,0,0:CLR  : 
GOTO  20 


LISTING  2 


LL 
UI 
FJ 
OP 
EU 

IJ 
PR 

UO 

RD 

PY 


0  REM  BA 
0  REM  BY 
0  REM  <c 
REM  <C 
0  REM  (L 
THER  BAS 
0  REM  CH 
0  DIM  FN 
EKC10592 
0  FN*="D 
ME  OF  TH 
0  7  "HKIi 

0  IF   NO 
81  THEN 


KER  SOLITAIRE 

TOM  CLINE 
I  1985,1987  ANTIC  PUBLISHING 
REATES  LINES  45-501 
INES  10-250  MAY  BE  USED  UITH 
IC  LOADERS  IN  THIS  ISSUE. 
AN6E  LINE  78  AS  NECESSARY. i 
*C20> ,TEMP5  12  81 ,AR$c93i  :DPL  =  P 
1 :POKE  18592,255 
:LINES.LST":REM  THIS  IS  THE  N 
E  DISK  FILE  TO  BE  CREATED 
SK  or  fflassette?"; : POKE  764,25 


T  CPEEKC7641=18  OR  PEEKc764l= 
90 

continued  on  next  page 
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TH 
UB 

MV 
KB 
PU 

LU 

BQ 
YC 

Dn 

BK 

MM 

cn 
uo 


108  IF  PE 
118  POKE 
TIC'S  GEN 
128  ?  ."B 
138  POKE 
148  7  !? 
se  stand 
158  RESTO 
C  =  l 

168  flRS=" 
170  FOR  X 
2,255 

188  Ln=Ln 
wn ■ . . T-"; 
190  A$cc, 
l:NEXT  X: 
288  IF  PE 
MANY  DATA 
E!"!END 
210  IF  C< 
LINES!-: 
228  IF  FN 


EKc764i=ia  THEN  FNS="C!" 
764.255:GRAPHICS  8:?  "       AN      AR 
ERIC  BASIC  LOADER"  PU 

Y  CHARLES  JACKSON"  AL 

18592. DPL:TRAP  288 

I?  "Creating  ";FNS:7  "...Piea     IS 
bv."  TM 

RE  :READ  LN : LM=LN s DIM  A$ CLN> : 

"iREAD  ARS  NO 

=1  TO  LENcARSi  STEP  3:P0KE  75 

l:POSITION  18.18:?  "(Countdo      LZ 
INTcLM^18> ;"> 

Ci=CHR$cUAL(AR$cX.X+2>>> !C=C+ 
GOTO  160  HU 

EKC195>=5  THEN  ?  :?  :?  "QTOO 

LINES!"!?  "CANNOT  CREATE  FIL 

GI 
LN+1  THEN  ?  :?  "QTOO  FEU  DATA 
7  "CANNOT  CREATE  FILE!":END 
S="C:"  THEN  ?  :?  "  Prepare  ca     IX 


ssette.  press  cRETURNi" 

238  OPEN  ttl.S.O.FNS 

248  POKE  766.1:?  t*liA$;:POKE  766.0 

258  CLOSE  *tl:  GRAPHICS  0:?  "■BmSOBQISDClQM 


1008  DA 
1810  DA 
0417016 
1848372 
1828  DA 
8284086 
8650820 
1038  DA 
7589781 
1871931 
1846  DA 
4915015 
8838720 
1858  DA 
6787503 
0768690 
1060  DA 


TA  156 
TA  052 
925513 
121332 
TA  034 
686507 
680360 
TA  052 
801902 
781791 
TA  185 
115215 
858788 
TA  868 
207987 
688320 
TA  155 


0530320660 
3212133213 
1220220824 
0580668658 
8036841032 
6183486585 
8530548550 
0021022823 
8018118218 
2122822092 
3244234241 
3686186786 
0368588828 
0032885878 
6786588286 


65878836 

10403721 

3096 

78068061 

15505304 

0051 

56057084 

02402511 

3184 

03225146 

23503405 

5882 

69877832 

88307288 

8883 


8618341 
3133213 

8658688 
8032867 

8748818 
6186113 

1471481 
8885878 

8688698 
5878878 


ENHANCING  THE  NUMBER  GENERATOR 

RANDOM  ATARI 


Article  on  page  12 


LISTING  1 


Don't  type  the 
TyPO  II  Codes! 


IB 
ZU 
BH 
DI 
BX 

NO 
AP 

UC 
RV 

HR 
UO 
YY 
VJ 

LU 

OL 


YE 
ZR 


OA 
UJ 


KA 
01 


lU 
DZ 
ZU 
UF 


10  REM  RANDOM  ATARI 

20  REM  BY  DAUID  McINTOSH 

30  REM  cc>1988.  ANTIC  PUBLISHING 

188  X=12345:G0SUB  28888 

lie  FOR  1=1  TO  20>GOSUB  20288:?  I . X : NE 

XT  I 

128  END 

20088  REM  SET  UP  RANDOM  NUMBER  GENERAT 

OR 

28810  DIM  XStlJ .X t8> iXe8>=ADRcXSJ+l 

28020  POKE  204.INT(X(0>^256> :POKE  203. 

XC0J-2S6»INT<XC8»^256J 

28830  REM  USER  HAS  PRESET  X  TO 

28848  REM  EITHER  8  FOR  A  RANDOM  SEED. 

28858  REM  OR  THE  REOUIRED  SEED  UALUE 

20868  IF  X<=8  THEN  X=1+INT c65536«HND CO 

>1+32768WINTC65536MRNDC8>> :60T0  28868 

28865  IF  X>2147483648  THEN  X=214748364 

8 

28878  X t8>=INTtX» :FOR  X=208  TO  285  STE 

P  -l:POKE  X.INTCXC8»-256»»INTCXC8>'256» 

I : X(0i=INTcXce>^256) :NEXT  X 

20080  xco)=ADRc"hharDhaahei[9haiHihhDBane[!]B 

20898  x=ADRc"B  aaiHaBnBBQiBae6aB[aaiBais6SB 
BQSffi  leiaxBasa i  nnDSStnnQD^eniaistiiuaBiiiDQicsaBa 
naneiBiiis6"B[iiaFisp"iig]EniMDn"i 

20108  X=USRcXctj .X. 1536. 851 

20128    X  =  ADR("[IIinBQIDEaDil«ami2IS&CIFSB(ri3He[aSI 

BnsanwEin[iG]nRii][!ian(s]9sai!ea?B[aani!ic[3  aei  H^iBam 
BSBiEQ!   ae  B^BGisaiaiEGisaai"! 

28138  X=USR(XC02 .X. 1621.851 

28140    X  =  AORc"HiaDI]BDQ[aa   00    BIZIQElBBBBDia   D 

121  HziDQSefflciscnsKiDnniiiaismBanBSiaBaBam  wm  Jim 
iiziQEi  i  namsBseauGias"  > 

28158  X=USRcX C8> .X. 1706. 881 

28160  RETURN 

20288  REM  GET  NEXT  RANDOM  NUMBER 

20218   x=usRcADR<" hasoDaiiaDEisaaEiajnBBaisiB 

BDBIiie]  miR  >2liIiai@[!lB{lfflQ]ai  EIKI  D&!IS"a>  :X  =  X  C01  : 
RETURN 


uo 


LISTING  2 


BU 
ZU 
FJ 
GC 

EU 

IJ 
PR 


30 


18  REM  RANDOM  ATARI.  LISTING  2 

20  REM  BY  DAUID  McINTOSH 

38  REM  cci  1985.1987  ANTIC  PUBLISHING 

35  REM  CREATES  LINES  28888-20890,  2012 

8.  28148  AND  28218  FOR  RANDOM. BAS 

48  REM  CLINES  18-250  MAY  BE  USED  UITH 

OTHER  BASIC  LOADERS  IN  THIS  ISSUE. 

58  REM  CHANGE  LINE  78  AS  NECESSARY-l 

68  DIM  FNSt28» , TEMPSC28> , ARSC93J :DPL=P 

EEKC185923 :POKE  18592,255 


RD 

PY 

TH 
UB 

MY 
KB 
PU 

LU 

BO 
YC 

DM 

BK 

MM 


CM 

UQ 

AR 
PU 
AL 

IP 
DC 


XU 
01 
VG 
PS 
FL 
SK 


TIC 
128 


70  FNS="D:L 
AME  OF  THE 
80  ?  "HmiSK 
5 

90  IF  NOT 
581  THEN  98 
188  IF  PEEK 
118  POKE  76 
S  GENER 
7  ."BY 
138  POKE  18 
148  7  !?  :? 
se  stand  bv 
158  RESTORE 
C  =  l 

168  ARSr 

170  FOR  X=l 

2,255 

180  LM=LM-1 

wn.  .  . T-";IN 

190  AS(C,C> 

l:NEXT  X:GO 

280  IF  PEEK 

MANY  DATA  L 

E! ":END 

218  IF  C<LN 

LINES!":? 
228  IF  FNS= 
ssette,  pre 
238  OPEN  ttl 
248  POKE  76 
258  CLOSE  tt 


INES.LST":REM  THIS  IS  THE  N 
DISK  FILE  TO  BE  CREATED 
or  Bassette?"; :POKE  764,25 


(PEEKC7641=18  OR  PEEKc764>= 

AN 


C764»=18  THEN  FNS="C : " 
4,255!GRAPHICS  8:?  " 
IC  BASIC  LOADER" 
CHARLES  JACKSON" 
592,DPL:TRAP  288 
"Creating  ";FNS:?  "...piea 

■  • 

':READ  LN:LM=LN:DIM  ASCLN>> 

READ  AR$ 
TO  LENcARSi  STEP  3:P0KE  75 


'POSITION  10,10:?  "cCountdo 

TCLM^10>;"J 

=CHR«cUALcAR»cX.X+2>>» :C=C+ 

TO  160 

tl95J=5  THEN  ?  :?  :?  "HTOO 

INES!":?  "CANNOT  CREATE  FIL 

+1  THEN  ?  :?  "ETOO  FEU  DATA 

"CANNOT  CREATE  FILE!":END 

"C:"  THEN  ?  :?  "  Prepare  ca 

ss  [RETURN!" 

.8.8.FN$ 

6.1:?  ttl;A$;:POKE  766.8 

l:  GRAPHICS    0:?    "■BailBSBIlDSGM 


lOee  DATA  426 

1810  DATA  8500480480568480320880480480 

41061065068882048034104104133213104133 

212184133215104133214104104 

1028  DATA  1681361772121452141368162498 

9683404115505004  8848057  84  8  832  888  861865 

868882840034160032169080162 

1838  DATA  8081492242822882511628088248 

542242022082511620048248542182  82288251 

144016032049006162004144089 

1848  DATA  1812241858001492242022082451 

3628821989602416200418122  8117212149228 

202208247096169088133224886 

1858  DATA  2291628858542232022082518702 

2916888418522800012122400  0034041155050 

84884985884883288  88610650  68 

1868  DATA  8820480341532280001362082441 

65224185008133228886229838228878229165 

228240021181232133232160003 

1070  DATA  1690001212288081532288081362 

88245169888248223896168888169  86314  5283 

1698002081452838322128868  32 

ANTIC  SOFTWARE  UBRARY 


JB 
LM 
HS 
UV 
JT 
RU 
HJ 


1080  DATA  2220061652282400041600012000 

33032212006032222006165228240004160001 

208031160000034041155050048 

1090  DATA  0490520480320880618650680820 

4  003417720317020213814  5203208217032212 

0060  32222  00  6165228  010010010 

1100  DATA  0101452030322120060322220061 

7  72  03024101228145203200192006208224  096 

1620  0418122814  92122022  0  824  9 

1110  DATA  0961690001332280322410060322 

41006  0  32  04  9  00616522810500013322  8  024162 

005054227202208251096034041 

1120  DATA  1550500480500490480320880610 

8508308204  0065068082  040034104169023133 

219169172133220169218133221 

1130  DATA  1691261332221620041812041492 

1220220  824  9032000006  0  32062  006162804181 

22814  920420220824  9032241006 

1140  DATA  0321290060960340410410580880 

6108884  0  04  8041058082069084085082078032 

155 


LISTING  3 


10  ; 

KANDOn  ATARI,  SOURCE  CODE 

20  ; 

SV  DAUID 

Mcintosh 

30  ; 

tc»1988. 

ANTIC  PUBLISHING 

40 

tt  = 

$6400 

50 

PLA 

60 

LDA 

««2  3 

78 

STfl 

219 

80 

LDA 

»«172 

90 

STA 

220 

0100 

LDA 

«218 

0110 

STA 

221 

0120 

LDA 

«*126 

0130 

STA 

222 

0140 

LDX 

«4 

0150 

RNDl 

0155 

LDA 

204.x 

0160 

STA 

212.x 

0170 

DEX 

0180 

BNE 

RNDl 

0185 

; 

0190 

JSH 

MULT 

0200 

JSR 

M0D231M1 

0210 

LDX 

»4 

0220 

RND2 

0225 

LDA 

228, X 

0230 

STA 

204, X 

0240 

DEX 

0250 

BNE 

RND2 

0255 

: 

0260 

JSR 

ROTATL 

0270 

JSR 

BTOD 

0280 

HTS 

0285 

; 

0290 

»  = 

1536 

0300 

;MULTIPLV  FRO  BY  PRE  GIU; 

0310 

MULT 

0315 

LDV 

«32 

0320 

LDA 

»0 

0330 

LDX 

M8 

0340 

MLl 

0345 

STA 

224, X 

0350 

DEX 

0360 

BNE 

MLl 

0365 

; 

0370 

nL2 

0375 

LDX 

ttB 

0380 

CLC 

0390 

Rl 

0395 

ROL 

224,  X 

0400 

DEX 

0410 

BNE 

Rl 

0415 

; 

0420 

LDX 

t«4 

0430 

CLC 

0440 

R2 

0445 

ROL 

218, X 

0450 

DEX 

0460 

BNE 

R2 

0465 

i 

0470 

BCC 

nL3 

0475 

i 

0480 

JSR 

ADDER 

0490 

LDX 

«4 

0500 

NLA 

0505 

BCC 

ML3 

0507 

; 

0510 

LDA 

224, X 

0520 

ADC 

ttO 

dARCH  1989 

0530 

STA 

224, X 

0540 

DEX 

0550 

BNE 

MLA 

0555 

s 

0560 

ML3 

0565 

DEV 

0570 

BNE 

ML2 

0575 

f 

0580 

RT5 

0585 

1 

0590 

;ADD  FRO  TO  FRl 

0600 

ADDER 

0605 

CLC 

0610 

LDX 

«4 

0620 

ADDRl 

0625 

LDA 

228, X 

0630 

ADC 

212.x 

0640 

STA 

228, X 

0650 

DEX 

0660 

BNE 

ADDRl 

0665 

; 

0670 

RTS 

0675 

0680 

,-CONUERT  8  BVTES  AT 

FRl 

0685 

;T0 

MOD 

2^31-1 

0690 

M0D231M1 

0695 

LDA 

**0 

0700 

STA 

224 

0710 

ASL 

229 

0720 

LDX 

»5 

0730 

MODI 

0735 

ROL 

223. X 

0740 

DEX 

0750 

BNE 

MODI 

0755 

; 

0760 

LSR 

229 

0770 

LDV 

*«4 

0780 

M0D2 

0785 

LDA 

228.  V 

0790 

ADC 

224, V 

0800 

STA 

228,  Y 

0810 

DEV 

0820 

BNE 

M0D2 

0825 

i 

0830 

LDA 

224 

0840 

ADC 

no 

0850 

M0D3 

0855 

STA 

228 

0860 

ASL 

229 

0870 

ROL 

228 

0880 

LSR 

229 

0890 

LDA 

228 

0900 

BEQ 

M0D5 

0905 

# 

0910 

ADC 

232 

0920 

STA 

232 

0930 

LDV 

»3 

0940 

nOD4 

0945 

LDA 

no 

0950 

ADC 

228,  V 

0960 

STA 

228,  V 

0970 

DEV 

0980 

BNE 

M0D4 

0985 

* 

0990 

LDA 

no 

1000 

BEQ 

M0D3 

1005 

# 

1010 

M0D5 

1015 

RTS 

1017 

; 

1020 

;CONUERT  BINARV  TO 

DECI 

1030 

BTOD 

1035 

LDV 

no 

1040 

LDA 

n63 

1050 

STA 

C203> , V 

1060 

LDA 

no 

1070 

INV 

1080 

STA 

C2031. Y 

1090 

BDl 

1095 

JSR 

MOVE 

1100 

JSR 

nuLio 

1110 

LDA 

228 

1120 

BEQ 

BD2 

1125 

; 

1130 

LDV 

nl 

1140 

BNE 

BD6 

1145 

; 

1150 

BD2 

1155 

JSR 

MOUE 

1160 

JSR 

nuLio 

1170 

LDA 

228 

continued  on  next  page 
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1188 

BEO 

BD4 

1185 

s 

1199 

LOY 

««1 

1288 

BNE 

BD8 

1285 

f 

1218 

BD4 

1215 

LDV 

W8 

1229 

LDA 

t293> , V 

1238 

TAX 

1249 

DEX 

1258 

TXft 

1268 

STfl 

t283J , V 

1278 

BNE 

BDl 

1275 

; 

1288 

BD5 

1285 

JSR 

HQUE 

1298 

J5H 

nuLie 

1389 

LDfl 

228 

1318 

BD6 

1315 

OSL 

A 

1329 

ASL 

A 

1339 

ASL 

A 

1349 

ASL 

A 

1358 

STA 

c283>, V 

1369 

JSR 

nouE 

1379 

JSR 

nuLie 

1388 

BD8 

1385 

LDA 

t283> .Y 

1399 

CLC 

1498 

ADC 

228 

1418 

STA 

C283> ,Y 

1428 

IKV 

1438 

CPV 

t«e 

1448 

BNE 

BD5 

1445 

; 

1458 

RTS 

1455 

; 

1468 

illOUE  FRl  TO  FR8 

1478 

nouE 

1475 

LDX  »»4 

14B8 

nui 

1485 

LDA  228.x 

1498 

STA  212.x 

1588 

DEX 

1518 

BNE  nui 

1515 

; 

1528 

RTS 

1525 

s 

1539 

;HULTIPLY  FR8  BY 

18  GIU 

1548 

;ASSUnED:   FR8  = 

FRl 

1558 

MUL18 

1555 

LDA  *te 

1568 

STA  228 

1578 

JSR  RDTATL 

1588 

JSR  ROTATL 

1598 

JSR  ADDER 

1688 

LDA  228 

1619 

ADC  *>e 

1629 

STA  228 

1639 

;FALL  THROUGH  TO 

ROTATL 

1649 

;ROTATE  LEFT. 

1645 

;FROri  227  +  1  TO  227  +  5 

1658 

ROTATL 

1655 

CLC 

1668 

LDX  «5 

1678 

ROTL 

1675 

ROL  227, X 

1688 

DEX 

1698 

BNE  ROTL 

1695 

; 

1788 

RTS 

FLASHY  ELEaRONIC  BILLBOARDS  WITH  YOUR  ATARI 


SIGNMAKER 


Article  on  page  46 


LISTING  1 


Don't  type  ttie, 
TYPO  II  Codes! 


cu 

BH 
ON 
JD 
UB 
ZI 

CM 
ZB 
FU 
EJ 
ZI 

ZU 
PB 
GS 

KZ 
UT 
ZN 
ZM 
NZ 

UH 
UK 
VP 

ZA 
RZ 
HF 
ZE 
JT 
UP 
GI 
HY 
OG 
PP 


ZE 
PU 

32 


iSOUND  C8.1ie-IT.18 


UARliTEHPStI 


18  REM  SIGNBOARD 

12  REM  BY  ANDREU  R.  THOMAS 

14  REM  C01988.  ANTIC  PUBLISHING 

16  GOTO  12598 

188  REM  CLICK 
118  FOR  IT=C1  TO  C4 
.C2!NEXT  IT 
115  SOUND  C8,C8.Ce.C8 
128  RETURN 
148  REM  READ  LOOP 
145  TEMPS="" 

159  FOR  IT=C1  TO  UAR:READ 
T.IT>=CHRScgARl> JNEXT  IT 
155  RETURN 

169  REM  INSUFFICIENT  MEMORY 

165  TC  =  C9<TR  =  C8sG0SUB  BPOS  ■  7  "  aSIStllDDB 

179  GOSUB  PAUSE 
175  GOSUB  BPOS 

189  RETURN 

185  REM  GET  INSTRUCTION 

199  TRAP  195!MfiR=ASCcS«cSP.5P> J !UAR1=U 

AH-47iSP=SP+Cl 

195  TRAP  4888e:RETURN 

299  REM  D^L  INFO 

295  UAR=DL+R0UM3:UAR1=PEEK<UAR-C1> : UAR 

2=PEEKtOAR» 

218  RETURN 

228  REM  HI^LO 

225  HI  =  INTCUAR'C2563  i  L0  =  UAR-256»»HI 

238  RETURN 

258  REM  INSERT  STEPS 

255  UAR=LENCS$i :IF  SP>UAR  THEN  RETURN 

268  UAR1=UAR-SP+C1 

265  S«cUAR+SH.UAR+SHl="  " 

279    IF     UARK255    THEN    298 

275    UAR1=UAR1-255SDUM=USRCADRCPPM0UE$> 

.ADRc59cSP+UAH1.5P+UARl>>-Cl.ADRCS*tSP 

+gnRl,SP+UARlJ>-Cl+5H.255l 

288    IF    UAR1=8    THEN    RETURN 

285  GOTO  278 


un 

AF 
YO 
EA 
KD 
JT 
RC 
ZS 
BZ 
UF 
UX 
00 
UD 
RL 
NN 


JB 
JR 
CN 
PR 


AE 
JG 


UH 
ZL 
XR 
UJ 
DM 
VU 
UZ 
UL 
OU 
MI 
NG 

ZR 


298  DUM=USRCADRcPPMOUE«>.ADRcS«(SP.SP> 

>-Cl.ADRtS«tSP.SP»J-Cl+SH.UARlJ 

295  RETURN 

388  REM  Y^N  7 

385  ITEM=C1 

319  TC=C9!TR=C9!G0SUB  BP05<7  BMENU$; 

315  IDIS=C5:IS=aMISiG0SUB  MENUSEL 

328  TC=Ce:TR=C2:G0SUB  BPOS 

325  RETURN 

338  REM  SINGLE  POINTER 

335  GOSUB  758 

348  IF  UAR2=2B  OR  UAR2=12  THEN  RETURN 

345  GOTO  335 

358  REM  CHAR  EOUIUS 

351  TC=C8:TR=C2!G0SUB  BPOS 

352  ?  "fflOfit  •■;:FOR  IT  =  C1  TO  26:7  CHR$cI 
T+64»;:NEXT  IT : FOR  IT=28  TO  31=7  CHH«t 
27> ;CHR«cIT> ; iNEXT    IT 

"^5"^  '9  '*  .  ■  £lG**  * 

354  f C=C4iTR=C3!G0SUB  TPOS 

355  IF  PEEKcDCASE>=LC  THEN  358 

356  FOR  IT=33  TO  58:7  CHRS CIT> ; ' NEXT  I 
T:FOH  IT=68  TO  64 i 7  CHR* CIT> ; s NEXT  IT > 
7  ■■  t  ;  "  ; 

357  RETURN 

358  FOR  IT=C1  TO  26=7  CHRS cITJ ; : NEXT  I 
TsFOR  IT=2B  TO  31=7  CHRS c27» ; CHRS clT» ; 
iHEXT  IT 

359  7  "mm    SS"; 
369  RETURN 

378  REM  ONSCREEN  URITING 

371  GOSUB  358 

372  OPEN  »1,C4. e."K:"!POKE  764.255 

373  UAR4=cPEEKcDCA5E>=UCJ»»-8  +  19 

375  GOSUB  768 

376  POKE  764,UAR2 

377  GET  ttl.UAR3 

378  IF  UAR3=27  THEN  GET  M1.UAR3 

388  IF  UAR3  =  27  THEN  CLOSE  wis?  ■•B";!RE 

TURN 

381  IF  UAR30155  THEN  384 
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382  IF  R0U<9  THEN  R0U=R0U+C1 : COL=e 

383  GOTO  373 

384  TEXTS= TEXT$=CHR$ cUAR3> 

385  DUn=USRcADRcTRANS$i . ADR cTEXT$> -CI, 
A0RCTEXT*»-C1,C1J 

386  UAR3=ASCCTEXT$CC1,C1>> 

388  GOSUB  DLI:UAR1=UAR2MC256+UAR1+C0L 

396  POKE  URR1,UAR3 

392  SH  =  C5:IF  SP  +  SH>SL  THEN  GOSUB  IHEtl) 

RETURN 

394  GOSUB  IS 

396  S«cSP.SP+ClJ="03"is»tSP+C2.SP+C2>= 

CHR«fROMa !S«cSP+C3,SP+C3i=CHR«CC0L> iS« 

CSP+C4.SP+C41=CHR«CURR31 

398  SP=SP+SH 

460  IF  C0L<19  THEN  COL  =  COL'i-Cl 

462  GOTO  373 

416  REM  RESET 

411  GOSUB  135eiP0KE  DCASE.UC 

412  POKE  2e3.4e>P0KE  284,262>P0KE  265. 
148!P0KE  286,7e!P0KE  2e7.6>PaKE  268, C6 
'POKE  7eB.48sP0KE  711.76 

413  POKE  712.6!RETURN 
566  REM  UINDOM  POS 

516  POKE  656,TR>P0KE  657. TO 

526  RETURN 

536  REM  PAUSE 

535  TC=Ce:TR=C3<G0SUB  TPOS 

546  POKE  764.255 

545    ?    •■  BBnilllSBBHEIQnSHEaSBnDGlBIlQIDODHIinil 

SIB" ; 

556  IF  PEEKc764i=255  THEN  556 

555  POKE  764.255 

566  TC=C6<TR=C3:G0SUB  TPOS:?  BLANK$cCl 

.38>  ; 

565  RETURN 

586  REM  TEXT  UINDOU  POS  ft  BLANK 

585  GOSUB  TPOS:?  BLANKS i : GOSUB  TPOS 

596  RETURN 

686  REM  MENU  SELECT 

685  POKE  764,255 

616  TC=ITEnMlDIS>TR=C6:G0SUB  TPOS:?  "H 

[S"  * 

626  IF  PEEK(764i <255  THEN  766 

625  IF  STICKCC8X15  THEN  646 

636  IF   NOT  STRIGCC6>  THEN  746 

635  GOTO  626 

646  IF  STICKcce><>7  THEN  666 

645  IF  ITEM<LENCI«»-C1  THEN  ITEn=ITEM* 

CI 

656  GOSUB  TPOS:?  ••  •• ; 

655  GOTO  675 

666  IF  STICKcceaoil  THEN  626 

665  IF  ITEM>C8  THEN  ITEM=ITEM-C1 

676  GOSUB  TPOS:?  ••  -■ , 

675  TC=ITEn«IDISiGOSUB  TPOS:?  "BE"; 

686  GOSUB  CLICK:60T0  626 

706  UAR=PEEKC764> :POKE  764.255 

702  IF  UAR=7  OR  UAR=135  THEN  645 

783  IF  UAR=6  OR  UAR=134  THEN  665 

704  GOSUB  CLICK 

767  IF  UAR=12  THEN  746 

710  IF  UAR=28  THEN  ITEn=-l : RETURN 

715  IF  I«CC1.C1>="!"  THEN  746 

716  IT=C1 

726  IF  I«CIT,IT1=CHR«CUAR>  THEN  735 

725  IF  IT=LENtIS»  THEN  626 

736  IT=IT+Cl:GOTO  726 

735  ITEM=IT-Cl:GOSUB  TPOS:?  "  ■•;:TC  =  IT 

En«IDIS:GOSUB  TPOS:?  "£[S"; 

746  IF   NOT  STRIGCC6>  THEN  746 

745  RETURN 

756  REM  PTR 

755  POKE  764,255 

766  GOSUB  DLI:UAR1=UAR2MC256+URR1+C0L: 

UAR2=255:UAR3=15 

765  OLDCHAR$=CHR$cPEEKcUARl>> 

776  POKE  UAR1,UAR4 

775  IF  PEEKC764X255  THEN  UnR2  =  PEEKc76 

4J:P0KE  764,255:G0T0  796 

786  IF  STICKcce><15  THEN  WAR3=STICK C0> 

:G0T0  800 

785  IF   NOT  STRIGCC0I  THEN  UAR2=12:G0T 
0  870 

786  GOTO  775 

79Q    IF  UAR2=28  THEN  UAR4=-C1 : GOTO  870 

795  IF  UAR2=12  THEN  876 

866  OLDROU=ROU:OLDCOL=COL 

861  GOSUB  CLICK 

865  IF  cUAR2=6  OR  UAR3=11>  AND  COL>Ce 

THEN  COL^COL-Cl'GOTa  850 

810  IF  cMAR2=7  OR  UAR3=7>  AND  C0L<19  T 

HEN  C0L=CaL+Cl:G0T0  850 
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815  IF  CUAR2=14  OR  UAR3=142  AND  RaU>Ce 

THEN  ROU=ROU-Cl:GOTa  856 
826  IF  CUAR2=15  OR  UAR3=13l  AND  R0U<9 
THEN  R0U=RaU+Cl:60T0  856 
825  IF  UAR3=ie  AND  cCOL>C0  AND  ROU>cei 

THEN  COL=COL-Cl:ROU=ROU-Cl:GOTG  850 
830  IF  UAR3=6  AND  (C0L<19  AND  ROU>C0> 
THEN  C0L=C0L+Cl:R0U=R0U-Cl:G0T0  856 
835  IF  UAR3=9  AND  cCOL>C0  AND  RaU<9>  T 
HEN  C0L=CaL-Cl:ROU=ROU+CliGOTO  850 
840  IF  UAR3=5  AND  cC0L<19  AND  RaU<9>  T 
HEN  COL  =  COL-»Cl:ROU=ROU  +  Cl:GOTO  850 
845  IF   NOT  fUAR3<15  OR  UAR2=6  OR  UAR2 
=7  OR  UAR2=14  OR  UAR2=15l  THEN  870 
850  POKE  UARl, ASCC0LDCHAR$CC1,C11> 
865  GOTO  760 

870  POKE  UARl,ASCtOLDCHAR$(Cl,Cl>> 
875  RETURN 
900  REM  MAIN  MENU 
905  ITEM^^CO 

910  TC=C8 :TR=Ce:GOSUB  BPBS 
915  ?  ••  Qiaw   Bee    SdiX      Ooad   Baue 
tHew    d"; 

926  IDIS=C6:I«=nni«:G0SUB  MENUSEL 
925  IF  ITEH=-C1  THEN  ITEn=C6:G0T0  926 
936  ON  ITEtl+Cl  GOSUB  1666,956,16666,13 
660,13286,13466,30066 
935  GOTO  916 
956  REM  RECORD 
955  ITEI1=C6 

966  TC=C8iTR=C6:G0SUB  BPOS 
965  7  "  mrite    Bcroii   Bause    BlPtion 

Doad" 
970  I0IS=8>I«=Rni«:G0SUB  MENUSEL 
975  IF  ITEt1=-Cl  THEN  ITEn=C0 :  RETURN 
980  ON  ITEH+Cl  GOSUB  4000.5000,4766,86 
66.9666 
995  GOTO  966 
1666  REM  PLAY 

1001  IF   NOT  LENcS$>  THEN  RETURN 
1005  POKE  764.255 
1010  SP=Cl:FLA6=C0:POKE  559.6 
1615  POKE  DL'i^29.65:P0KE  DL-^36  ,  216  :  POKE 

DL+31.6 
1020  GOSUB  RESET:POKE  559,34 
1025  GOSUB  1050:POKE  77, C0 
1836  IF  SP<LENCS$I  THEN  1625 
1035  FOR  IT=C1  TO  100:NEXT  IT 
1040  IF  PEEK(764>=255  THEN  1010 
1044  POKE  559,6:P0KE  OL+29 , 66 : POKE  DL+ 
36,PEEKc660i :POKE  DL«31 . PEEK C6611 : POKE 

559.34 
1645  POKE  764.255:SP=LENCS«l+Cl:RETURN 

1056  REM  PLAY  1  INSTRUCTION 

1660  GOSUB  GI 

1070  ON  UARl  GOSUB  1180,2000.1466,3000 

.3100:RETURN 

1100  GOSUB  GI 

1110  ON  UARl  GOSUB  1150.1200.1300.1500 

:RETURN 

1150  TEMP«  =  "BII)OB[BB  " 

1155  TEXT$  = GOSUB  GI :  TEXTS cUAR, UARl 
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Rl>  = 

1175 
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1215 

RN 
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1225 

1230 

l.UA 

$1  J 

1235 

1240 

1241 

1245 


DUn=USRcADRcPPnOUE»i .ADRcS«cSP.SP 
1,ADRCTEXT$> -Cl,UARi 
UARl =cUAR<25>wUAR+(UAR> =251 M25 
TEMPSc8i=TEXTScl,UARli :TEMP$«8+UA 

f6r'iT=C1  to  C2:DUM=USRcaDRcTHANS 
DRc TEMPS (811 -CI, ADR (TEMPS  (811- Cl.U 
:NEXT  IT 

5P=SP+UAR 

RETURN 

REM  PLACE 

GOSUB  GI!UAR2=URR1 

GOSUB  Gl:ROU=UAR 

TEMPs="[a[i0a[i  lincna  •■ 

TEMPS (121 =5TRSCR0U1 

ON  UAR2  GOSUB  1220 , 1246 . 1270 : RETU 


GOSUB    0LI:TEMPS(13l: 


asaa  waasmm 


MARCH  1989 


IF  UARl<LEN(TEXTSi  THEN  RETURN 
DUn=USR(ADR(PPMOUE$i ,ROR(TEXTSi-C 
R2»*256  +  UAR1-LEN(TEXTS»  -C1,LEN(TEXT 

RETURN 

TEMPS  (131  =••    OlCBBaiailHD!!" 
GOSUB    GI:COL=UAR 
GOSUB    DLI 

continued  on  next  page 
33 


1250  IF  UnRl+COL+LENCTEXT«> >25S  THEN  R 

ETURN 

1255  DUn 

,UAR2»256 

1268  RETU 


USRCADRCPPM0UE«>.RDRCTEXT£>-1 

♦UflRl+COL-Cl,LENcTEXTS>> 

RN 

B  DLi:TEnp$ci3>="  [iioojoia  [gsraigrK 
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127B  GOSU 

taaaw 

1275  IF  UftRl+19+LENcTEXT«»>255  THEN  RE 

TURN 

1288    DUri=:USRcnDRcPPnOUE$i  ,ADRCTEXT$>-C 

l,UftR2*256+UfiRl*19,LENcTEXT$» J 

1285    RETURN 

1388  REM  CLEAR 

1385  GOSUB  GI  :TEI1PS  =  '-[l[|a[!]ra  " 

1318  ON  UARl  GOSUB  1368 , 1328 . 1358 > RETU 

RN 

1328    GOSUB    GI:ROU=UAR 

1321    TEriP«cC7»="lirifflr=l    ••!TEMP*c12>=STRSc 

ROUi 

1325  GOSUB  DLI  \ 

1336  DUM=USRcADRcPCLEAR$> ,UAR2> 

1335  RETURN 

1358  FOR  ROU=CB  TO  9:G0SUB  DLI:DUn=USR 

CADRCPCLEARSJ ,UAR2» :POKE  URR- CI , 117 : NE 

XT  RaM:R0U=C8 

1355  TEMPS  cC7J="raOaH[iSSa" 

1356  RETURN 

1368  GOSUB  GI :ROU=UAR:GOSUB  GI:CaL=UnR 

1365  GOSUB  DLI 

1378  POKE  UAR2«256+UAR1+COL,C0 

1375    TEMPS  tC7J="[i[I1HiE   BOHIHI  HfflH    ""TEM 

PSC17,17»=STRSCR0H> i TEMPS t24 J =5TRS cCOL 

> 

1388  RETURN 

1408  TEMPS  =  "aia[!lBa  " 

1485  GOSUB  GIiTEMPScC7»=STR*cUAR-Cls >I 

F  FLAG  THEN  RETURN 

1418  UAR1=INTC(URR+C11^C2> 'POKE  28,128 

<«CC2»UAR1-UAR>  (POKE  19.255-UARl 

141S  IF  PEEKC19J  THEN  1415 

1428  RETURN 

1500  TEnps="ai{!]gi[§(B[i(iii]  BiisaaaisiB" 

1585  R0U=ASCCS$CSP,SP>>  > COL  =  ASC cS* cSP* 

Cl.SP  +  Cm  iUARl  =  ASCCS*cSP  +  C2,SP*C2»>  <S 

P=SP+C3 

1518  UAR=DL+R0Hw3iP0KE  PEEKcUAR>m256+P 

EEKCUAR-Cli+COL.UARI 

1515  RETURN 

2008    GOSUB    GI:TEMPS  =  "gBm[I10II    " 

2020    ON    UARl    GOSUB    2858 , 2388 < RETURN 

2050  TEnp*c8>="nas](i  ■■ 

2060  GOSUB  GIiUAR2=UARl 

2865  GOSUB  GI  :  ROU=UAR : TEMPS C13> =STR$ cR 

OMl 

2070  GOSUB  Gl!DIR=UAR-Cl:GOSUB  GI:DIST 

=UAR:GOSUB  GI = SPEED=UAR 

2875  ON  UAR2  GOSUB  2188. 2288 : RETURN 

2188  IF  DIR=-C1  THEN  TEMPS  <14>="  (ll3aD" 

:GOTO  2118 

2105  TEMPS  C14»="  BDfflina" 

2110  UAR  =  DL'>^R0UMC3:UAR1  =  PEEKCUAR-C1>  'V 

AR2=PEEKCUAR> 

2120  FOR  IT=C1  TO  DIST 

2138  UAR1=PEEK(UAR-C1) -DIR 

2135    IF    UAR1>-C1    AND    UARKC256    THEN    PO 

KE  UAR-C1,UAR1 

2148  FOR  IT1=C1  TO  68  STEP  SPEED+ClsNE 

XT  ITl 

2158  NEXT  IT 

2168  RETURN 

2288  REM  U^D 

2205  IF  DIR=-C1  THEN  TEMP«cl4>="  [OH- >  G 

OTO  2218 

2286  TEMPScl4J="  raOMHl" 

2210  IT=C1 

2220  UAR=DL+R0UK3:UAR1=PEEKCUAR-11 :UAR 

2=PEEKcUAR> 

2225  IF  cROU=Ce  AND  DIR=-C1>  OR  cR0U=9 

AND  DIR=C1>  THEN  2278 
2238  UAR3=UnR+3NDIR 

2231  DUM=USRcnDRcPCLEARS> .PEEKcUAR3>l 
2235  POKE  UAR.PEEKCUAR3> :P0KE  UAR3-C1, 
UAR1:P0KE  UAR3,UAR2: POKE  UAR-C1,117 
2240  FOR  IT1=C1  TO  60  STEP  SPEED+Cl s NE 
XT  ITl 

2245  ROU=ROM+DIR 

2258  IT=IT+CliIF  IT<=DI5T  THEN  2228 
2268  RETURN 

2278  DUM=USRcADRcPCLEARSi  ,UAR2> SPOKE  U 
AR-C1.117:RETURN 
2388  TEMPS  (81  ="[i]Dgl[aBma  " 
2385  GOSUB  GI:UAR2=UAR1 
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2318  GOSUB  GI>DIR=UAR-Ci:G05UB  GI'DIST 

=UAR:GOSUB  GI:SPEED=UAR 

2315  ON  UAR2  GOSUB  2358, 2588 s RETURN 

2358  IF  DIR=-C1  THEN  TEMPS  C16>  ="tl[=!aD"  ' 

GOTO  2368 

2355  TEMPS  C16>="(BDHG10" 

2360  SCRHSCC4,C4>=CHR$C238-16MDIRI 

2365  FOR  IT=C1  TO  DIST 

2370  DUM=USRcADR(SCRHSil 

2385  FOR  IT1=C1  TO  50  STEP  SPEED+C1:NE 

XT  ITl 

2390  NEXT  ITsRETURN 

2500  UAR=tC3-DIR>^C2iIF  DIR=-C1  THEN  T 

EMP$cl6»="(lja"!G0T0  2510 

2585  TEMPS  cl6»="[im]l!JEI" 

2518  FOR  IT=C1  TO  DIST 

2515  ON  UAR  GOTO  2528,2538 

2528  UARl  =  PEEKtDL  +  27J  = DUM  =  USR cADR tPCLE 

ARSi.UARll sDUM=USRCADR(SCRDS>> :POKE  DL 

,UARl:POKE  DL -CI , 117 : GOTO  2548 

2538  UAR1=PEEKCDL1 > DUM=USR CADR cPCLEARS 

},UARli  iDUM::=USRcADRcSCRUS>J  rPOKE  DL+27 

.UARltPOKE  DL+26,117 

2548  FOR  IT1=C1  TO  78  STEP  SPEED+ClsNE 

XT  ITl 

2545  NEXT  IT 

2558  RETURN 

3088  REM  OPTION 

3818  GOSUB  GI:ON  UARl  GOSUB  3058.3078, 

3138,3158 

3015  RETURN 

3858  TEMPS^-HGIDHB" 

3855  GOSUB  GIsPOKE  DCASE, UAR : RETURN 

3070  TEMPS  =  "aQ]HlJ]S  •• 

3875  GOSUB  GI  :  CASE  =  UAR : GOSUB  GI 

3880  UAR2  =  C2*CASE»*C7!  TEMPS  CC7,12>=CASE 

MENUS  CUAR2.UAR2  +  C5>:UAR2  =  INTCUAR.'16> 

3098  TEMPSC13,15>= TEMPS C14 J =STRS 

CUAR21  :TEMPSC16»= TEMPS Cl7» =5TRS c CU 

AR-UAR2»16»^C2+C1J 

3095  POKE  203+CASE,UAR!POKE  7eB+CASE,U 

AR:RETURN 

3108    TEMPS  =  "[|[BBI1]    •• 

3185  GOSUB  GI!FILES=SSC5P,SP+UAR-C1> :T 

EMPS(C6.C5+UARI=FILES:SP=SP+UAR 

3118  IF  FLAG  OR  PEEKC764 J <255  THEN  RET 

URN 

3128  GOSUB  13040 

3125  RETURN 

3138    TEMPS  =  "[D[lDlI][a    " 

3135    GOSUB    Gl!CASE=UARsGaSUB    GIiPOKE    1 

721.UAR:P0KE    288.CASE>IF       NOT    CASE    THE 

N    TEI1PSc7i="Q][ia">  RETURN 

3140    UAR  =  C2+tCASE-CH»C7<  TEMPS  c7>=CnSE 

MENU$CUAR.UAR+C6i iRETURN 

3150    REM    MISC 

3155  GOSUB  GliON  UARl  GOSUB  3208 

3168  RETURN 

3208  TEMPS  =  "Hn]aa  •■ 

3285  GOSUB  GI : DIR=UAR-1 > GOSUB  GIiCASE= 

UARiGOSUB  GI!SPEED=UAR+1 

3218  IF  DIR-Cl  THEN  TEMPS  C6»  ="ffl[ClD  "  i  GO 

TO  3228 

3215  TEMPS  C6>="DII1   " 

3228  UAR2=C2+CASE»C7> TEMPS cl8»=CASEnEN 

USCVAR2.UAR2  +  C5>  :  UAR4  =  283  +  CASE 

3225  UAR3=PEEKCUAR4» : COLUAR=INT CUAR3'1 

61 

3238  UAR2=UAR3-C0LUARwi6:IF  cUAR2<C2  A 

ND  DIR=-Cli  OR  CUAR2>13  AND  DIR=C1>  TH 

EN  RETURN 

3235  UAR3=UAR3*DIR*C2:P0KE  UAR4,UAR3:P 

OKE  788+CASE, VAR3 

3240  FOR  IT=C1  TO  38  STEP  SPEEDsNEXT  I 

TtGOTO  3225 

4808  REM  URITE 

4818  ITEM=C8 

4828  TC=C0:TR=C0!GOSUB  BROS 

4030  ?  "  Snter    [Slace    Blear    Blnscr 

4848  IDIS=8:I$=UMIS:G0SUB  MENUSEL 

4858  IF  ITEM=-C1  THEN  ITEn=C0 > RETURN 

4868  ON  ITEM+Cl  GOSUB  4180,4208.4400.3 

70 

4878  GOTO  4820 

4100  REM  M-TEXT 

4118  7  CHRSC125>; 

4115  TC  =  C8:TR  =  C1  :GOSUB  BROS 

4116  7"       246802468    0"; 
4120    GOSUB    350 

4125  TC=C0)TR=C0iGOSUB  BROS 

4126  POKE  752.C0:INPUT  TEMPSiPOKE  752, 
CI 
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4138  IF  LENcTEnPS>=Ce  THEN  7  CHR$ C125s 

s   'RETURN 

4135  TEXT«=TEHP»:ITEn=Cl 

4148  DUn=USRcAORcTRflNS«>.RDR(TEXT«>-l, 

ADRtTEXTSJ -Cl,LENCTEnP«>> 

4158  7  CHR«C125> 

4155  UflR2=LENcTEXT$> 

4168  SH=UAR2+C3<IF  SP+SH>5L  THEN  GOSUB 

inEn:RETURN 
4165  GOSUB  IS 

4178  5Sc5P,5P  +  CU="80":SScSP  +  C2,5P  +  C2» 
=CHR$(UflR2> 

4175  S$cSP+C3,5P+C3+UflR2-Cl>=TEXT$:5P= 
SP  +  SH 

4188  RETURN 
4200  REM  H-PLRCE 
4285  ITEI1=C1 

4218  TC=C8<TR=C8:G0SUB  BPOS:?  "  Deft  o 
ffscr   (Onscreen      Bisht  offscr" 
4215  IDXS=13:I$=UPMI«:G0SUB  MENUSEL 
4220  IF  ITErt=-Cl  THEN  XTEn  =  Cl :  RETURN 

4225  ON  ITEtl+Cl  GOSUB  4230^280.4338 

4226  GOTO  4218 

4230  URR4=cPEEKcDCRSE>=UC>M60  +  Cl:  GOSUB 

PTR 
4235  IF  URR4=-C1  THEN  RETURN 
4248  GOSUB  DLI 

4245  IF  UnRl-LENcTEXTS><C8  THEN  4388 
4258  DUn=USRCADRcppnOUE$> . RDR cTEXT«» -C 
l,PEEKcUflR>M256  +  UnRl-LENcTEXT$>-Cl,LEN 
cTEXTSjj 

4255  SH=C4:IF  SP+SH>SL  THEN  GOSUB  inEM 
'RETURN 

4256  GOSUB  IS 

4268  5«tSP.SP+C2>="818" 

4265  S$cSP+C3,SP+C3>=CHR»cR0Ma !SP=SP+S 

H 

4275  RETURN 

4288  IF  LENCTEXT$>>20  THEN  4285 

4281  COL=10-INTtLENcTEXT«J^C2J 

4285  UAR4=52:GaSUB  PTR'IF  UAR4=-C1  THE 

N  RETURN 

4298  GOSUB  DLI 

4295  IF  UnRl+CaL+LENfTEXT$>>255  THEN  4 

388 

4388  DUn=USRcADRcppnOUE$> ,ADRcTEXT«)-C 

l,PEEK(UARJMC256+UARl+C0L-Cl.LENfTEXT« 

u 

4385  SH=C5<IF  SP+SH>SL  THEN  GOSUB  IMEM 

sRETURN 

4310  GOSUB  IS 

4315  5*c5P,SP+C2>="011" 

4320  S$cSP+C3,SP+C3i=CHR«cR0Mi >S*cSP+C 

4.5P+C4J=CHR*cC0L> iSP=SP+SH 

4325  RETURN 

4330  UAR4=CPEEKCDCASE>=UC1M55  +  C4  > GOSUB 

PTR 
4335  IF  UAR4=-C1  THEN  RETURN 
4340  GOSUB  DLI 

4345  IF  UAR1+19+LENCTEXT«>>255  THEN  43 
6B 

4350  DUn=USRcADR<PPHOUE*».ADRcTEXT»>-C 
l.PEEKcURR>«C256'«-UARl  +  19,LENCTEXT«>> 

4355  SH=C4>IF  SP+SH>SL  THEN  GOSUB  IMEM 
i RETURN 

4356  GOSUB  IS 

4360  S»c5P.SP*2>="ei2" 

4365  S*CSP  +  C3.SP  +  C3>=CHR*CR0U>  <5P  =  SP«S 

H 

4375  RETURN 

4380  TC=C0<TR=Cli6OSUB  BPOS 

4381  ?  "      Sorry,  text  will  not  fit 
there*     " 

4382  7  "  Tr»  CLEARina  line. 

•■; 

4383  GOSUB  PAUSE 

4384  GOTO  4218 
4408  REM  U-CLEAR 
4405  ITEM=C1 

4410  TC=C0:TR=C0sGOSUB  BPOS 
4415  7  "  Ohar      Dine      Blisplau"; 
4428  IDIS=:9>I«  =  CMI*sG0SUB  MENUSEL 
4425  ON  ITEM+Gl  GOSUB  4588.4435,4455 
4438  IF  ITEM=-C1  THEN  ITEM=C2 i RETURN 
4431  GOTO  4418 

4435  UAR4=cPEEKCDCA5Ei=LC>M22+C3>G0SUB 
PTR>IF  UAR4=-C1  THEN  RETURN 

4436  GOSUB  DLI 

4448  DUM=USRCADRCPCLEAR«> .UAR2> 

4441  POKE  UAR-C1.117 

4442  SH=C4:IF  SP+SH>SL  THEN  GOSUB  IMEM 
'RETURN 

4443  GOSUB  IS 
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ZK 
LI 
CC 
HO 
AR 

FO 
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BB 
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FJ 
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EJ 


OM 
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BD 
UP 
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KX 
AD 
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AA 
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BB 

BD 
CF 
AB 

HA 
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GA 

HR 
GL 
UY 
YY 
GU 

NJ 
LH 
YM 

SH 
TT 
SB 
BX 

YP 
LU 
NB 


4445  S»cSP.SP+C2> 

4446  S*cSP+C3.5P+ 
H 

4458  RETURN 

4455  TC=CeiTR=C2: 

ammmnm"  t 

4456  GOSUB  388 

4459  IF  ITEM=-C1 
4468  ON  ITEM+Cl  G 
4465  GOSUB  1358 
4478  SH=C3<IF  SP+ 
'RETURN 

4475  GOSUB  IS 
4480  S«CSP.SP+C2J 
4485  RETURN 
4500  REM  CLEAR  CH 
4510  UAR4=CPEEKCD 

PTR'IF  UAR4=-C1 
4520  GOSUB  DLI 
4530  POKE  UAR2WC2 
4535  SH=C5iIF  SP+ 
'RETURN 
4548  GOSUB  IS 
4545  S*«:5P,5P  +  C2» 
>=CHR$CROU> :S$cSP 
SP=SP+C5 
4558  RETURN 
4788  REM  PAUSE 
4705  TC=C0'TR=C2' 

4718  ITEM=C7iG0SU 
UAR2=-C1  THEN  IT 
4715  ITEM=C2iSH=C 
SUB  IMEM'RETURN 
4720  GOSUB  IS 
4725  S««SP,SP>="2 
«CUAR2+C1> !SP=SP+ 
4738  RETURN 
4980  TC=C0!TR=C0' 

BBsanmsma 
I  I  I  I  I  I  I  I  I  ■■ 


021" 
C3>=CHR*CR0Ui !SP=SP+S 


GOSUB  BPOS:  7  "HamEllBBS 

THEN  ITEM=C1:RETURN 
OTO  4465.4485 

SH>SL  THEN  GOSUB  IMEM 

="822"'SP=SP+C3 

AR 

CASE) =LClM22+C3: GOSUB 

THEN  RETURN 

56+UAR1+COL.0 

SH>SL  THEN  GOSUB  IMEM 


="828"'S$CSP+C3,SP+C3 
+C4.SP+C4>=CHRSCC0L> i 


GOSUB  BP0S:7 


gISDmaQ 


B  C0LSEL'UAR2=ITEM:IF 

EM  =  C2 I  RETURN 

2'IF  SP+SH>SL  THEN  GO 


■■'5»CSP  +  C1.SP  +  C1J=CHR 
SH 

GOSUB  BPOS'?  ■■  [;]  n  @ 
B  B  H  H"!IS  =  "!  !!!!!! 


4910  IDIS=C2 

4928  TC=C8!T 

4930  RETURN 

4940  TC=C0iT 

El  @  m  B  m-'i 

5000  REM  SCR 
5005  ITEM=C0 
5018  TC^Ce'T 
5828  7  SMENU 
5830  IDI5=9i 
5840  IF  ITEM 
5050  ON  ITEM 
5868  GOTO  58 
5100  REM  S-L 
5105  ITEM=C8 
5110  TC=C0!T 
5128  7  SLMEN 
5138  IDIS=7 
5148  IF  ITEM 
5158  ON  ITEM 
208 

5168  GOTO  51 
5200  REM  L^R 
5205  TC=C0'T 

■nnms" ; 

5218  DIST=Ce 
5215  DIR:=clT 
5220  IF  PEEK 
9:G0T0  5230 
5225  UAR4=cD 
5230  GOSUB  P 


GOSUB 
R=C2sG 

R  =  Ce'  G 
S=SPEE 
OLL 


MENUSEL 
OSUB  BPOS 

OSUB  BPOS '7  "  0!  g  » 
DMI$<1,8> 'GOTO  4918 


R=C8'G0SUB  BPOS 

*; 

I«=SMI 

=  -Cl  T 

-•-CI  GO 

10 

INE 


S'GOSUB  MENUSEL 
HEN  ITEM=Cl:RETURN 
SUB  5108.6000 


R=C8:G0SUB  BPUS 

U«; 

IS=SLM 

=  -Cl  T 

+  C1  GO 


IS'GOSUB  MENUSEL 
HEN  ITEM=C0sRETURN 
SUB  5200.5508.5588.5 


18 

R=C8'G0SUB  BPOS'? 


gisnmcaD 


EM-1.5J^1.5 

CDCASE>=UC  THEN  UAR4=DIR+2 

IR-»Cl>^C2  +  38 

TRiIF  UAR4=-C1  THEN  RETURN 


MARCH  1989 


5235    GOSUB    BPOS  >  7    "    SBfllBCiOHBlOaaillllinii]" ; 

5240  POKE  764.255 

5245  GOSUB  DLI ■ 0LDC0L=URR1 

5250  GOSUB  DISTSEL 

5260  IF  UAR2=-C1  THEN  POKE  UAR-Cl.OLDC 

OL'RETURN 

5270  IF  UAR2=12  THEN  5350 

5308  GOSUB  DLI:UAR1=UAR1-DIR 

5318  IF  UAR1>C8  AND  UARK255  THEN  POKE 

UAR-Cl.UARliDIST  =  DIST-*Cl 
5320  GOTO  5250 

5350  IF   NOT  DIST  THEN  RETURN 
5355  GOSUB  SPEEDSEL 

5368    SH  =  C7!IF    SP-»SH>SL    THEN    GOSUB    IMEM 
'RETURN 
5378    GOSUB    IS 
5375    SSCSP.SP■^C2J=•■180•• 
5388    S«(SP'»C3.SP  +  C3>=:CHR$cR0U>  'SSCSP  +  C 

continued  on  next  page 
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UC 
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SH 

00 
CE 
LE 

YO 

ZF 
UT 
HP 
PK 
TO 

36 


4,SP+C4»=CHR*cDIR+Cl> :5Sc5P+C5,SP+C5>= 
CHR$CDIST> iS«cSP+C6.SP+C6>=CHRStITEM> 
5398  5P  =  SP  +  5H:ITEM=cDIR  +  Cl J ♦♦1.5:  RETURN 

5598  REM  U'D  . „ 

5585  TC=C8:TR=C8:GD5UB  BPOS : ?  "  SSaSBO 

■DHIBS" ; 

5518    DIST=C8:DIR=C3- CITEM»C2> 

5528    IF    PEEKtDCASE»=UC    THEN    UAR4=-DIR» 

C4+5B:GaT0    5525 

5521    UAR4=CDIR  +  C1>>'C2  +  2B 

5525    GOSUB    PTR 

5538    IF    UAR4=-C1    THEN    RETURN 

5535    GOSUB    BPOS:?    ••    gtDDI^BDBmBSDSIilllS" ; 

5548    POKE    764.255 

5558    GOSUB    DISTSEL 

5568    IF    UAR2=-C1    THEN    5558 

5578    IF    UAH2=12    THEN    5658 

5688    GOSUB    DLI 

5685    DIST=DI5T+1  

5618    IF     cROU=Ce    AND    DIR=-C1>     OR     cR0U=9 
AND    DIR=C1>     THEN    5648 

5615  UAR3=UAR+C3«DIR 

5616  DUH=USRc ADR CPCLEAR«>. PEEK cUAR3>i 
5628  POKE  UAR.PEEKCUAR31 :POKE  UAR3-C1< 
UARl:POKE  UAR3 . U AR2 : POKE  UAR-C1.117 
5625  ROU=ROM+DIR 

5638  GOTO  5558 

5648  DUn=U5RcADRcPCLEAR«> .UAR2> :POKE  U 

AR-C1.117 

5658  IF   NOT  DIST  THEN  RETURN 

5655  GOSUB  SPEEDSEL 

5668  SH=C7:IF  5P+SH>5L  THEN  GOSUB  IMEM 

■RETURN 

5678  GOSUB  IS 

5675  S«cSP,5P+C2>="iei" 

5688  IF  R0U-DIR*DIST<8  THEN  DIST=DIST- 

l:GOTO  5680 

5681  5SCSP  +  C3.SP  +  C3>=CHRS«R0M-DIR»»DIST 

>  :SSCSP*C4,SP  +  C4J=CHRSCDIR*C1>  :S«t5P  +  C 

5.SP+C5J=CHR9CDIST> 

5685  SStSP  +  C6,SP  +  C6J=CHR*clTEt1»  iSP  =  SP  + 

SH 

5690  ITEM=cC3-DIR»^C2:RETURN 

5880  REM  DISTANCE 

5818  UAR2=PEEKt764> :IF  UAR2<255  THEN  P 

OKE  764.255:GaT0  5858 

5815  IF  cSTICKcce»=ll  AND  ITEH=C8>  OR 

CSTICKCC8>=C7  AND  ITEM=C3>  THEN  5898 

5828  IF  cSTICKfC8J=14  AND  ITEM=C2>  OR 

cSTICKcC8>=13  AND  ITEri=Cl»  THEN  5898 

5838  IF   NOT  STRIGcCBl  THEN  UAR2=12:G0 

TO  5890 

5835  GOTO  5810 

5858  IF  UAR2=28  THEN  UAR2=-C1 : RETURN 

5855  IF  UAR2=12  THEN  5898 

5868  IF  UAR2=33  THEN  5898 

5865  IF  CUAR2=C6  AND  ITEn=C8i  OR  cUAR2 

=C7  AND  ITEM=C3J  THEN  5898 

5870  IF  CUAR2=14  AND  ITEn=Cl>  OR  <UAR2 

=15  AND  ITEn=C2>  THEN  5898 

5875  GOTO  5818 

5898  GOSUB  CLICK:RETURN 

5988  REM  SPEED  MENU 

5918  ITEM=5PEED:TC::^C8:TR  =  C8:G05UB  BPOS 

:?  SPEEDMENUS; 

5938  TC  =  Ce:TR  =  C2:  GOSUB  BPOS:?  ••  gsn^taO 

5948  IDIS=C3:I$=SPEEDMIS:G0SUB  MENUSEL 

:IF   NOT  CITEM+CIJ  THEN  ITEM=C5:G0T0  5 

940 

5958  SPEED  =  ITEri 

5960  TC=C0:TR=C2:GOSUB  BPOS 

5978  RETURN 

6880  REM  S-SCREEN 

6010  ITEM=C8 

6828  TC  =  C0:TR  =  C8:GOSUB  BPOS:?  SLI1ENU$; 

6838  IDIS=C7:I«=SLMI«:60SUB  MENUSEL 

6848  IF  ITEM=-C1  THEN  ITEM=C1 : RETURN 

6858  ON  ITEM+Cl  GOSUB  6180,6508.6500,6 

108 

6068  GOTO  6828 

6108  REM  L/R 

6105  DIST  =  C0>DIR=fITEn-1.5>>'l-5:SCRH«c 

C4,C4>=CHR«c238-16KDIR> 

6110  TC  =  C0iTR  =  C2:G0SUB  BPOS:?  ••  BBDigilD 

■mBBDmnHiBi" 

6115  GOSUB  DISTSEL 

6120  IF  UAR2=-C1  THEN  6115 

6125  IF  UAR2=12  THEN  6158 

6130  DUn=USR(ADRcSCRH$>i 

6135  DIST=DIST+Cl:60T0  6115 
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6158  IF   NOT  DIST  THEN  RETURN 

6168  GOSUB  SPEEDSEL 

6165  SH=C6:IF  SP+SH>5L  THEN  GOSUB  IMEM 

:RETURN 

6178  GOSUB  IS 

6175  5SCSP.SP+C2»="110":S«CSP+C3,5P+C3 

»=CHHScDIR+Cl>!SStSP+C4,SP+C4»=CHRScDI 

5T» :5«CSP*C5.SP+C5»=CHRSCITEM> 

6180  SP  =  SP  +  C6:ITEM=tDIR+l>»tl.  5:  RETURN 

6508  REM  U^D 

6585  DIST=C0:DIR=C3-ITEMMC2 

6510  TC  =  Ce:TR=C2:  GOSUB  BPOS:?  ••  gSaSHD 

■rnHSDEiiiiaB" 

6515  GOSUB  DISTSEL 

6528  IF  UAR2=-C1  THEN  6515 

6525  IF  UAR2=12  THEN  6688 

6538  ON  ITEM  GOTO  6548,6568 

6548  UARl=PEEKcDL+2?i : DUM=USR cADR (PCLE 

AR$> ,UAR1> :DUM=U5R(ADRCSCRD$>> :POKE  DL 

,UARl:POKE  DL-Cl, 117 : GOTO  6588 

6560  UARl=PEEKcDLi : DUH=USR CADR cPCLEARS 

1 .UARli :DUM=USRCADRCSCRU$1> :POKE  DL+27 

,UARl:POKE  DL+26,117 

6588  DIST=DIST+Ci:G0TO  6515 

6608  IF   NOT  DIST  THEN  RETURN 

6605  GOSUB  SPEEDSEL 

6610  SH=C6:IF  SP+SH>SL  THEN  GOSUB  IMEM 

■RETURN 

6615  GOSUB  IS 

6628  SSCSP.5P+C2>="111":SSCSP+C3,SP+C3 

>=CHRS<:DIR  +  C1>:S«CSP  +  C4.SP  +  C4»=CHRSCDI 

ST» :5ScSP+C5,SP+CS»=CHRStITEM> 

6625  5P=5P+C6:ITEM=CC3-DIR>^C2: RETURN 

8800  REM  OPTIONS 

8885  ITEM=C8 

8010  TC=CO:TR=C0:GOSUB  BPOS 

8015  7  "  Shift   Boior   [Blink   ISisc"; 

8828  IDIS=C7:I$=0MI<<G0SUB  MENUSEL 

8825  IF  ITEM=-C1  THEN  ITEM=C3 : RETURN 

8838  ON  ITEM+Cl  GOSUB  8188,8200,8300,2 

8848  GOTO  8010 

8188  REM  CASE  TOGGLE 

8118  IF  PEEKCDCASE>=UC  THEN  POKE  DCASE 

,LC:GOTO  8125 

8128  POKE  DCASE, UC 

8125  SH=C3iIF  SP+SH>5L  THEN  GOSUB  IMEM 

:RETURN 

8130  GOSUB  IS 

8135  SSCSP.SP+C1>="38":SSCSP+C2, SP*C2> 

=CHHSCPEEKCDCA5E>»:SP=SP+C3 

8148  GOSUB  PAUSE 

8145  RETURN 

8288    REM    COLOR 

8285  GOSUB    CASESEL:IF    ITEM=-C1    THEN    IT 
EM=Cl:RETURN 

8286  UAR3=PEEKC283+CASE> : UAR4=INT cUnR3 
/•16J  :ITEM=UAR4 

8218    TC  =  C8:TR  =  C2:  GOSUB    BPOS:?    ••    glsntUBQ 

■Sriinrrita";  :  GOSUB    CBLSEL:C0LUAR  =  ITEM:IF    I 

TEM=-C1    THEN    ITEM=C1 : RETURN 

8211    ITEM=INT  ccUAR3-UAR4»16»''C2» 

8215    TC  =  C8:TR  =  C2:  GOSUB    BPOS:?    ■•    gunStaO 

■nmiSBrammtaiS";  :  GOSUB    4940:IF    item=-ci    th 

EN  ITEM=Cl:HETURN 

8228  UAR2=C0LUARwi6+ITEMwC2>P0KE  203*C 

ASE,UAR2:PaKE  708+CASE , UAR2 

8225  SH=C4:IF  SP+SH>SL  THEN  GOSUB  IMEM 

:RETURN 

8238  GOSUB  IS 

8235  SSCSP,5P+C1»="31":SSCSP+C2,SP*C2» 

=CHH$cCASE> :S$(5P+C3,SP+C3>=CHR$CUAR2> 

:SP=SP+SH 

8240  ITEM=Ci: RETURN 

8388  REM  BLINK 

8318  IF  PEEKC2881>0  THEN  U AR4=-C1 : UAR3 

=Cl:GaTO  8378 

8315  IF  CASE>C3  THEN  CASE=C3 

8328  I$=:CASEMI$(Cl,C4l  :TC  =  C0:TR  =  C0:GOS 

UB  BPOS:?  CASEMENU$cC1.27> :GOSUB  8910 

8338  IF  ITEM=-C1  THEN  ITEM=C2 : RETURN 

8340  UAR4=ITEM:TC=C8:TR=C2!G0SUB  BPOS: 

?    "    LnDBm[aBmmB[aSH[gB">lTEM=C4:  GOSUB    4940 

8358    IF    ITEM=-C1    THEN    ITEM=C2  :  RETURN 

8360    0AR3=2^C7-ITEM> :POKE    1721. UAR3 

8370    POKE    2B8.UAR4+C1 

8375    SH=C4:IF    SP+SH>SL    THEN    GOSOB    IMEM 

:RETURN 

8388    GOSUB    IS 

8385  SStSP.SP+Cl>="32":SScSP+C2.SP+C2> 

=CHR$cUAR4+Cl> ■ S$ CSP+C3, SP+C3> =CHR« cUR 

R3»  :SP  =  SP  +  SH 

ANTIC  SOFTWARE  LIBRARY 


8398  ITEn=C2>G0SUB  PflUSEiRETURN 
8988  REM  CASE  SEL 

8985  I*  =  CASErtI«>TC  =  CesTR  =  Ce>GOSUB  BPOS 
■7  CnSEMENUS 
8918  ITEM=CnSE 

8915  IDIS  =  C7:G0SUB  riENUSELHF  ITEM+Cl 
THEN  CflSE=ITEn 
8920  RETURN 
9080  REM  SCRIPT  LGAD 

9085  ?  "H"j:PBKE  752. Bt?  "BBHBlBnBnH";  s 
INPUT  FILE«>PUKE  752,1 

9010  TRftP  9050IGPEN  <*!,  4  ,  0,  FILES  :  TRAP 
40e00:CLBSE  Ml 

9015  UAR2=LENCFILE$> :SH=C2+UAR2>IF  SP+ 
SH>SL  THEN  GBSUB  inEMiRETURN 
9828  GOSUB  IS 

9025  SScSP.SP»="4"iS«tSP+ci.SP+Cl>=CHR 
«cunR2J!SSCSP+C2.5P+Cl+UAR2»=FILES:5P= 
SP+C2+UAR2 
9838  ITEH=C4:RETURN 

9850    ?    "H";  :TC  =  CB:TR  =  Cl!G05UB    BPBS:?    •■ 
[iSimBnBIiHIStri    ••;  FILES:?    "    BEBmtiSmElB^tnBigE]!!] 
H"; 

9055  GBSUB  380:IF  ITEH  THEN  ITEri=4!RET 
URN 

9868    GBTB    9015 
10088    REM    EDIT 
18810    GOSUB    RESET 
18015    5P  =  C1:TEMPS  =  "    [OSIBniBdiniHffl"  i  FL  AG  =  C1 

10020    TC=C0:TR=C2iGOSUB    BPOS:?    TEMPS; 

10025    POKE    764.255:G05UB    18240 

10030    OSP=SP:GOSUB    1050 

10035    GOSUB    10100 

10040    IF    ITEM=-C1    THEN    GOSUB    1350  :  SP  =  L 

ENC5SJ+C1 :ITEM=C2:?    "S";  : RETURN 

10045    IF    SP<LENCSS>     THEN    10030 

10050    ITEM=C2:?    ••H":RETURN 

10100     TC=C0:TR=C2:G0SUB     BPOS:?    TEMPS; 

10110    ITEM=CO 

10115    TC=CO:TR=Ce:GOSUB    BPOS 

10120  ?  "  Bontinue   tHeiete     Hnserf; 

10125  IDIS=10:IS=EMI$:GOSUB  MENUSEL+10 

10130  IF  ITEM=-C1  OR   NOT  ITEM  THEN  RE 

TURN 

18148  ON  ITEM  GOSUB  10200.958 

10150  RETURN 

10280  REM  DELETE  STEP 

10285  IF  SP=C1  THEN  RETURN 

10210    TC  =  Ce:TR  =  C2<G0SUB    BPOS:?    ••    ansOBB 

[saasBUBsniaiiiB" ; 

10215  GOSUB  300 

10225  IF  ITEM=-C1  OR  ITEM  THEN  ITEM=C1 

iRETURN 

10238  IF  SP>LENtSSJ  THEN  SSC0SP»i= SP 

=OSP:RETURN 

10235  SScOSP>=SScSP> !5P=05P 

18240  TC=C0:TR=C8:GaSUB  BPOS:?  ••  Bonti 

nue  Hnser-t"; 

10250  IDIS=28:IS=EOMI$:ITEM=C0:GOSUB  M 

ENU5EL 

18255  IF  ITEM=-C1  OR   NOT  ITEM  THEN  RE 

TURN 

10260  GOSUB  95e:RETURN 

12080  REM  DATA 

12180  REM  ML  CODE 

12135  REM    DLIttl 

12136  DATA  72.169,224,141.9.212,165.20 
4.141.23.208.165,205.141.24,208,169,17 
4.141.8.2.104.64 

12140  REM  DLItt2 

12141  DATA  72.138.72.165.208.170.240,1 
9,165.28,41.32.248.5.165.287.157.21.28 
8,76.281,6.181.282.157,21,208 

12142  DATA  169.151.141.8.2,184,170,104 
.64 

12196  REM  DL 

12192  DATA  112.112.128.288.71.117.0,71 
,117,0,71,117,8.71.117.8.71.117.0.71.1 
17. 8. 71. 117. 0.71. 117.0 

12193  DATA  71.117.8,71,117,0,128,66.0. 
0.2.2.2.65,210.6 

12388  REM  MENU  SEARCH  LISTS 

12389  DATA  18.48,42.8.62.35.47 
12318  DATA  46.62.18.8,8 

12311  DATA  42.18.18.8 

12312  DATA  43.35 

12313  DATA  0.8.48 

12314  DATA  8.58 

12315  DATA  8.58.11.40 

12316  DATA  31.30.26,24,29,27.51.53,48, 


GE 
SO 
HV 
KM 
GV 
MJ 
QK 
HB 
KD 

VV 
UX 


UT 
JH 
YV 


JN 

KF 
IJ 
HD 
KN 
ME 
SS 

SG 

UT 
VV 
BT 
KR 

EA 

SJ 


NT 

BG 

UH 

AO 
DG 
IE 
IT 
81 
AN 
UI 
DG 
CE 

UC 
FO 

BX 
BO 
SK 
PU 
PZ 

JD 
UJ 
UV 
ZA 
GM 
VK 
BA 
TK 


RM 

ER 
5E 
DM 

BU 

UX 

ER 
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12317  DATA  62.18,21.37 

12318  DATA  18.58.13 

12319  DATA  18,8,58 

12320  DATA  11,0,75,64,21 

12321  DATA  56,31.38.26,24 

12322  DATA  13,8 

12323  DATA  18,13 

12500  REM  UARIABLES 

12501  C0=0!Cl=l:C2=2:C3=3:C4=4:CS=5:C6 
=6:C7=7:C256=256 

12505  GRAPHICS  CO:POKE  752, CI : POSITION 

11,11:?  "amxmBtmaimmmmD" 

12510    DIM    PCLEARScl9i.PPM0UESc24i.TRAN 

S$c59l .CI0SC61 .SCRHSC121 ,SCRDSC21i ,SCR 

US (241 

12520  DIM  BMENUSC401 ,SMENUSc40i,SLMENU 

SC401 .SPEEDMENUSC291 . CASEMENUS c39i 

12530  DIM  BLANKSC401 .TEXTScll9i,TEMPS( 

128i,0LDCHARS(li 

12540  DIM  ISC161 ,MMISC7i .RMIS c5i .UMISc 

41 .0MISC21 .UPMISC31 . SMIS C2i  .  SLMIS C4i .  S 

PEEDMISdOl  .0MISC41 

12545  DIM  EMISC31 .CMI$c3i .CASEMISC51 .M 

ISCMISC51 .FADEMISC21 ,EDMISc2i 

12550  DIM  SSC5O001 :SL=508O 

12560  DIM  FILESC141 

12680  REM  SETUP 

12605  RL=140 

12610  pcLEARs="hhhasDnaBBHiianefem[aaefi" 
12620  PPM0UEs=:"hh9ShashaeBhaxhhDoei:aBB[as] 

12630  TRANS s="hhaeEhaffiha9hashhBfleBi;ieja8Bi 

12635    CIOS  =  "hajffiLMBl" 

12648   scRHs="hiBffiBa[aiiiinQe3ie" 

12641  scRD$= "hasBmeataeBagsoBsgmmmfamm" 

12642  5CRU*="hammijBBSBuaigBssBas\s!i\aamBasim" 

12645  FOR  IT=CO  TO  22:READ  UAR:POKE  16 
64+IT,UAR:P0KE  1687+IT , UAR : NEXT  IT 

12646  UAR  =  1687:P0KE  UAR«^C6 .  169  :  POKE  UA 
R  +  C7,202:POKE  UAR  +  11,  169  :  POKE  UAR«^12,1 
48:P0KE  UAR+17,128 

12658  FOR  IT=CO  TO  35:READ  UAR:POKE  17 

ie+IT.UAR:NEXT  IT 

12698  FOR  IT=CO  TO  43:READ  UAR:POKE  17 

46+IT.UAR:NEXT  IT 

12700    BLANKS=" 


12705 

UAR=C7 

GOSUB 

RL 

.MMIS=TEMPS 

12710 

UAR=C5 

GOSUB 

RL 

•RMIS=TEMPS 

12715 

UAR=C4 

GOSUB 

RL 

:UMIS=TEMPS 

12720 

OMENUS: 

:"  Hes 

mo" 

12721 

UAR=C2 

GOSUB 

RL 

OMIS=TEMPS 

12725 

UAR=C3 

Gosue 

RL 

UPMIS=TEMPS 

12730 

SMENUS: 

:"  Dine 

EliSPlaw" 

12731 

UAR=C2 

GOSUO 

RL 

SMIS=TEMPS 

12735 

SLMENU$="  Deft 

E]own    mp      B 

iahf  ■ 

12736 

UAR=C4 

GOSUD 

RL 

!SLMIS=TEMPS 

12740 

m     i 

12741 

SPEEDMENUS=" 

■1    R1** 

D 

g|   B   Q   gl   a   B 

J        \5i 
UAR=10 

GOSUB 

RL 

:SPEEDMIS=TEMPS 

12745 

UflR=C4 

GOSUB 

RL 

!OMIS=TEMPS 

12755 

UAR=C3 

GOSUB 

RL 

EMIS=TEMPS 

12760 

UAR=C3 

GOSUB 

RL 

:CMIS=TEMPS 

12765 

CA5EMENUS  =  "  fflpper   Dower   [UHrasrH 

Bli][!isa   (HacKground- 

12766 

UAR=C5 

GOSUB 

RL 

CASEMIS=TEMPS 

12770 

UAR=C5 

GOSUD 

RL 

MISCMIS=TEMPS 

12775 

UAR=C2 

GOSUB 

RL 

FADEMIS=TEMPS 

12780 

UAR=C2 

GOSUB 

RL 

EDMIS=TEMPS 

12800 

DL=1752:DCASE 

=  1666 

12885 

Rou=ce 

COL=Ce 

12818 

SP=Cl:CA5E=CB 

:SPEED=C5 

12858 

TPOS=590:BPOS 

=58e:PAUSE=530:MENU 

5EL=68e:CLICK=100!PTR= 

=330:IMEM=168:GI= 

185  :DLI  =  200:HILO  =  220: 15  =  250 

12855 

SPEEDSEL=590e 

:DIST5EL=580e!COLSE 

L=4900:CA5E5EL=890e 

:RE5ET=410 

12908 

GRAPHICS  C2 

12905 

REM  POKE  559. 

C0 

12910 

UAR=PEEKceeii 

-10:UAR1=OAR-C2»INT 

CUAR^C2> 

12915 

1 
12920 

POKE  741.255: 

POKE  742.UAR-C3-UAR 

FOR  IT= 

=  C8  TO 

9:P0KE  DL+C3»IT.UAR 

+IT:NEXT  IT 

12925 

POKE  DL->-30,PEEKC660l  :POKE  DL  +  31, 

PEEKC6611 
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UL 
GJ 
SK 

PG 
RR 
VK 


FF 
Tfi 

xn 

EU 

KO 

KA 
XP 
VJ 
XN 
GB 


ZU 
PN 
CE 

MH 
CU 

IV 
JR 
UR 
RY 
ZI 
UU 
OU 

HB 
01 
JB 
DD 
lA 
lA 


AA 
IH 
GL 
VU 
UK 
RK 
JX 

%l 

zo 

UA 
US 
MX 
00 
JH 
SL 
EN 

CO 
NG 
RK 
AK 
YP 
EN 
BH 
HM 
MN 

AD 
YL 
AF 
MU 
OZ 
10 
BD 

AR 

UX 
ZT 
PU 

UH 

IE 
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12939  POKE  56e,21B!P0KE  561,06 

12935  POKE  82, C0 

12948  FOR  IT=C8  TO  9 : DUn=USR c ADR cPCLEA 

RSJ  .PEEKcDL  +  n»C3>>  :NEXT  IT 

12945  POKE  752. CI 

12958  LC=UAR-C2-UAH1 

12955  FOR  IT=C8  TO  CI = DUM=U5R tADR cPPMO 

UESJ.  CPEEKC756J+C2  +  ITJ»C256.  cLC  +  ITJ»»C2 

5e.Ce> :NEXT  IT 

12968  FOR  IT=LC*C256  TO  LC»C256+C7 = POK 

E  IT+488.PEEKCIT> SPOKE  IT,C0!NEXT  IT 

12978  POKE  54286,192 

12971  POKE  512.128SP0KE  513, C6 

12972  UC  =  224iREI1  UAR  =  PEEK  C756  J  :  POKE  17 
ie+C2,UAR:P0KE  1725+C2 , UAR : UC=U AR 
12975  FOR  IT=C0  TO  C4 : POKE  283+11, PEEK 
c7e8*ITJ :NEXT  IT : POKE  208, C0 

12998  POKE  559,34 

12995  GOSUB  CLICK:GOTO  988 

13088  REM  LOAD 

1.3Q1.B  7  **iQ**  *  !FLflG  =  2 

13020  POKE  694.C0!POKE  702,64iPOKE  752 


'Load  file' 


ilNPUT  FILESsPOKE  75 


THEN  RETURN 


C0i? 
2, CI 

13030  IF  FILE«="" 

13040  POKE  559, C0  ^. ^^  , 

13050  TRAP  13150!OPEN  ««1,  C4  .  C0,  FILES  :  T 
RAP  48008 

13060  S*="  "!SP=liG05UB  RESET 
13078  INPUT  t<l,UAR:GOSUB  HILO  :  S$  (UAR,  U 
ARJ="  " 

13080  POKE  848+C2,C7 

13090  POKE  848-i'8,L0  SPOKE  848  +  9, HI 
13100  UAR=ADRCS$1 :GOSUB  HILO 
13110  POKE  848+C4. LO:POKE  848+C5,HI 
13128  DUri=USRcADRcCIOS»> 
13130  POKE  559.34:CL05E  «1 i RETURN 
13150  POKE  559,34!CL0SE  »»l:TRAP  40000' 
RETURN 

13160  ?  "H";!?  "  HEimilBBnmBB  ";  FILES 
13170  GOSUB  PAUSE 
13188  7  "H":RETURN 
13208  REM  SAUE 
13210  7  "B"; 

13220  POKE  694,C0:POKE  702,64:POKE  752 
,C0s?  "Save  file"; -INPUT  FILES'POKE  75 
2  Ci 

13238  IF  FILE«=""  THEN  RETURN 
13240  POKE  559,C8:TRAP  13358 
13250  OPEN  «l,8.C8,FILES:TRnP  48000 
13260  UAR  =  LENCSS)  --GOSUB  HILO 
13270  ?  ««1,UAR 
13288  POKE  848+C2,ll 
13298  POKE  848+8, LO'POKE  848+9, HI 
13388  UAR=ADR(SSi :G05UD  HILO 
13318  POKE  848+C4,L0:P0KE  84a+C5,HI 
13328  DUI1=USRCADRCCI0$>> 
13330  POKE  559,34:CL0SE  ttl : RETURN 
13350  POKE  559,34:CL0SE  niiTRAP  40008 
13368  ?  "H";!?  "  HSmBQBSBmB  ";FILES 
13378  GOSUB  PAUSE 
13388  7  "H":RETURN 
13488  REM  NEU 

13485  TC  =  Ce:TR  =  C2:G0SUB  BP0S!7  "  miSDSO 
SBarDBBSmQBStaBBSDB" ; 
13418  GOSUB  388 

13438  IF  ITEM  THEN  ITEH=C8!G0T0  13455 
13448  GOSUB  RESET 
13458  5S="":5P=C1 
13455  TC=C0:TR=C2:GOSUB  BPOS 
13460  RETURN 
20000  REM  niSC 
20885  ITEn=C8 
28010  TC=C0:TR=C8sGOSUB  BPOS:?  "  Dade 

DUser   SUser   BUser   QUser"; 
28015  IDIS=7:IS=MISCni$:G0SUB  MENUSEL 
20020  IF  ITEn=-Cl  THEN  ITEn=C2 : RETURN 
28825  ON  ITEM+Cl  GOSUB  28850 
20030  GOTO  20010 
20058  REM  FADE 
28855  ITEM=C0 

20060  TC=Ce:TR=Ce:GOSUB  BPOSs? "  Qn 
taut"; 
20065  IDIS=C5:I$=FADEni$:G0SUB  MENUSEL 

20070  IF  ITEM=-C1  THEN  ITEM=C8 = RETURN 

2007  5  DIR=C1-ITEM»C2:UAR4=203+CA5E 

28880  GOSUB  CASESELsIF  ITEn=-Cl  THEN  I 

TEM=C8 :RETURN 

28090  UAR4=203+CASE:UAR3=PEEKCUAR4> :C0 

LUAR=INT(U0R3/16> 

20188  UAR2=UAR3-C0LUARM16: IF  (UAR2<C2 

AND  DIR=-Cli  OR  cUAR2>13  AND  DIR=Cli  T 


HEN  28110 

SH 

20185  UAR3 

POKE  788+C 

OQ 

28118  GOSU 

MN 

28115  SH=6 

:ITEM=C8:R 

EI 

28128  GOSU 

ZU 

28125  SSCS 

3>=CHRSCDI 

ASEJ  iSScSP 

TO 

28138  SP=S 

JA 

30800  REM 

UB 

38010  TC=C 

BBEItllBQB" 

CC 

30020  GOSU 

PI 

30038  IF  I 

CN 

38118  GRAP 

JV 

30128  POKE 

=UAR3+DIR«C2iP0KE  UAR4,UnR3: 

ASE.  UnR3:G0T0  28180 

D  5PEED5EL 

!IF  SP+SH>SL  THEN  GOSUB  IMEM 

ETURN 

B  IS 

P,5P+C2>="33e":S$cSP+C3,SP+C 

R  +  CIJ  !SSC5P  +  C4,SP  +  C4»=CHRScC 

+C5,SP+C5J=CHRScSPEEDJ 

P+5H:ITEM=C8:RETURN 

EXIT 

8:TR  =  C2:G0SUB    BPOS:?    ••    [ilUJ^aD 

B  388 

TEM  THEN  ITEM=C0 : RETURN 
HICS  C0 
82,C2:P0KE  752. C8 


LISTING  2 


UH 
BE 
FJ 
OA 

EU 

IJ 
PR 

UO 

RD 

PY 

TH 
UB 

MY 
KB 
PU 

LU 

BO 
YC 

DM 

BK 

MM 

CM 

UB 

AR 
PU 
AL 

JB 
KY 


ML 


FM 


JE 


PO 


BE 


FU 


HX 


JK 


'C<' 


TIC 

120 


10  REM  SIGNBOARD,  LISTING  2 

28  REM  BY  ANDREM  R.  THOMAS 

38  REM  CO  1985,1987  ANTIC  PUBLISHING 

35  REM  CREATES  LINES  12618  -  12642  FOR 

SIGN.BAS 
48  REM  (LINES  10-250  MAY  BE  USED  MITH 
OTHER  BASIC  LOADERS  IN  THIS  ISSUE. 
50  REM  CHANGE  LINE  70  AS  NECESSARY. 1 
60  DIM  FNS  (20J ,TEMPS(20> , ARS(93J  :DPL  =  P 
EEK(18592> :POKE  18592,255 

70  FNS="D!LINES.LST":REM  THIS  IS  THE  N 
AME  OF  THE  DISK  FILE  TO  BE  CREATED 
80  7  "HDlisK  or  Bassette?";  :  POKE  764,25 
5 

90  IF   NOT  (PEEK(764»=18  OR  PEEK(764»= 
581  THEN  90 

100  IF  PEEK(764J=18  THEN  FNS=' 
110  POKE  764,255:GR0PHICS  0:7 

S  GENERIC  BASIC  LOADER" 

7  ,"BY  CHARLES  JACKSON" 
138  POKE  18592, DPL:TRAP  288 
148  7  :?  :?  "Creating  ";FN9:? 
se  stand  by." 

158  RESTORE  : READ  LN:LM=LN:DIM  AS (LN> : 
C  =  l 

168  ARS  = READ  ARS 

178  FOR  X=l  TO  LEN(ARSl  STEP  3:P0KE  75 

2.255 

188  LM=LM-l:POSITION  18,18:?  "(Countdo 

wn.  .  .T-";INT(LM^18J;"> 

190  AS(C,C>=CHRS(UAL(ARS(X.X+2>>> :C=C+ 

liNEXT  X:G0TO  160 

280  IF  PEEK(195>=5  THEN  7  :?  :?  "QTOO 

MANY  DATA  LINES!":?  "CANNOT  CREATE  FIL 

E! ":END 

218  IF  C<LN+1  THEN  7  ■?  "QTOO  FEU  DATA 

LINES!":?  "CANNOT  CREATE  FILE!":END 
228  IF  FNS="C:"  THEN  7  :7  "  Prepare  ca 
ssette,  press  cRETURNi" 
238  OPEN  «tl,8.8,FNS 

248  POKE  766,1:7  <*1;A$;:P0KE  766,0 
258  CLOSE  ttl:  GRAPHICS  8>7  "■SmSiailSaSQH 


AN 


Plea 


188 
181 
690 
133 
102 
488 
133 
103 
362 
882 
104 
330 
096 
105 
641 
136 
106 
841 
832 
187 
488 
068 
188 
062 
850 
189 
168 
238 


8  DATA 
8  DATA 
658828 
828160 
8  DATA 
328888 
831184 
8  DATA 
882498 
865878 
8  DATA 
301041 
144803 
0  DATA 
700241 
208214 
0  DATA 
620168 
083067 
0  DATA 
960341 
836861 
8  DATA 
022822 
032083 
e  DATA 
061892 
096034 


274 

84985 
368618 
808169 

20825 
800778 
133030 

13382 
960341 
883836 

13382 
841681 
024144 

83214 
388181 
896834 

85105 
768862 
882872 

16283 
550490 
034184 

08615 
022082 
067082 

10416 
188061 
155 


005404 
341041 
080145 
189683 
790868 
104133 
810410 
558498 
861834 
918413 
778288 
815138 
400417 
781778 
155849 
303286 
288341 
836861 
022221 
500540 
162027 
721600 
390960 
085036 
200016 
572150 


9048832 

8418413 

828288 

4155049 

6903686 

829184 

4168177 

5885485 

104184 

3828104 

1882410 

856233 

8824144 

2881813 

858854 

7073079 

5504905 

034104 

2006202 

5204903 

189213 

6189212 

3415504 

861834 

8809189 

0623223 


0800670768 
3829169888 

8588548580 
1034184104 

8381458281 
1848032884 

1338311841 
6178856233 

8851381858 
8186145838 

8368618341 
8854052848 

2022822882 
2883867882 

8861572158 
9858854852 

2198061572 
2232136288 


ANTIC  SOFTWARE  LIBRARY 


NEW  PRODUCTS 


TURBO-8T6  hmh^^^^ 

(upgrade) 
DataQue  Software 
PO  Box  134 
Ontario,  OH  44862 
iS159.95 

The  Tlirbo-Sie  from  DataQue  Soft- 
ware adds  16-bit  power  to  Atari  8-bit 
systems,  while  maintaining  compatibil- 
ity with  current  hardware  and  soft- 
ware, according  to  DataQue  President 
Chuck  Steinman.  A  plug-in  module 
will  be  available  for  the  XL/XE  series, 
and  a  replacement  CPU  board  is 
planned  for  the  400/800  computers; 
little  or  no  soldering  is  required. 

Also  included  in  the  package  is  the 
Tlirbo-OS,  a  replacement  Operating- 
System  ROM  which  takes  advantage  of 
the  l6-bit  power  and  the  new  high 
speed  floating  point  routines.  A  user's 
guide  and  macro  listing  is  supplied  for 
assembly  language  programmers. 

The  Turbo-816  will  not  only  increase 
the  potential  speed  of  the  computer, 
but  also  break  the  64K  memory  barrier 
of  existing  systems,  not  with  the  awk- 
ward paged  memory,  but  with  a  fully 
linear  decoded  address  space  of  up  to 
16  megabytes.  Special  memory  boards 
will  be  available  to  take  advantage  of 
the  new  extended  addressing  range.  All 
this,  and  compatibility  with  existing 
8-bit  products!  If  anything,  existing 
programs  should  run  faster  with 
Turbo-816. 


XF35  KIT,  w^ama^^mm 
RAMDRIVE  +  192K, 
IC  CHIP 

(hardware  modifications) 
Innovative  Concepts 
31172  Shawn  Drive 
Waritn,  MI  48093 
(313)  293-0730 

Now  it's  easy  to  upgrade  your  Atari 
XF55I  disk  drive  to  use  the  newer 
3.5"  drive,  with  the  XF35  Kit.  The 
J37.95  kit  includes  instructions, 
replacement  ROM,  and  all  cables 
required  for  the  conversion  (drive 


mechanism  and  mounting  bracket  are 
not  included).  According  to  I.C,  the 
finished  drive  will  work  in  the  720K 
formats  with  MyDOS,  SpartaDOS,  and 
the  new  SpartaDOS  X  cartridge.  High 
speed  skewing  is  still  usable,  and 
40-track  formats  are  also  available  for 
use  with  most  other  DOS  types.  Instal- 
lation is  simple,  and  requires  only  a 
minimal  amount  of  soldering  and 
desoldering. 

Upgrade  your  Atari  130XE  with 
RAMdrive  +   192K.  With  this  192K- 
total  memory  upgrade  you  can  set  up 
a  full  single  density  RAMdisk,  excellent 
for  disk  maintenance.  The  $37.95  kit 
includes  handlers  and  utilities  for  Atari 
DOS  2.0  and  2.5,  along  with  instruc- 
tions on  how  to  use  it  with  Atari- 
Writer -1-,  BASIC  XE,  MyDOS,  TopDOS, 
SpartaDOS  and  the  new  SpartaDOS  X 
cartridge.  Installation  requires  some  ex- 
perience in  soldering  and  desoldering. 

The  IC  Chip  is  a  replacement  ROM 
for  the  Happy  1050  Board  (original  or 
clone).  You'll  no  longer  have  to  con- 
figure it  for  the  U.S.  Emulation  Mode 
to  read  or  write  to  SpartaDOS  skewed 
disks.  This  "chip"  does  it  automatically 
— and  aU  other  Happy  functions  are 
stiU  available.  Installation  is  just  a  mat- 
ter of  unplugging  the  old  ROM  and 
plugging  in  this  new  one.  For  only 
832.95  you  get  the  IC  Chip  plus  two 
double-sided  disks  packed  full  of 
utilities. 


L.A.  SWAT,  mm^^mmmmm 
PANTHER 

(games) 

Mastertronic  International 

711  West  17th  Street 

Costa  Mesa,  CA  92627 

(714)  631-1001 

8999  ,  64K  disk 

Shoot  terrorists  as  part  of  a  crime- 
fighting  team  in  L.A.  SWAT.  Or  rescue 
prisoners  on  an  alien  planet,  flying 
your  Panther  Mini-Spacechip  in 
Panther.  Both  adventures  can  be 
found  on  Mastertronic's  new  double- 
sided  diskette. 


LANGUAGE  MASTER 

(electronic  dictionary/thesaurus) 
Franklin  Computer  Corp. 
122  Burrs  Road 
Mount  HoUy,  NJ  O8O6O 
(609)  261-4800 

A  hand-held  electronic  dictionary, 
Franklin  Computer's  Language 
Master  2000  (8299.95)  provides  con- 
cise definitions  of  over  80,000  words 
from  Merriam-Webster's  dictionary. 
Enter  the  word  on  the  keyboard,  and 
within  seconds  the  definition,  parts  of 
speech,  hyphenation  points  and  in- 
flected forms  of  the  word  appear  on  a 
large,  four-line  screen.  If  you  don't 
know  how  a  word  is  spelled,  sound  it 
out,  and  Language  Master  2000  will 
give  you  a  list  of  possible  correct  spell- 
ings, with  easy  dictionary  access.  Also 
included  is  a  thesaurus  of  35,000  entry 
words  and  470,000  synonyms. 

Franklin's  newest  addition,  the 
Language  Master  3000  (834995), 
offers  all  the  capabilities  of  the 
LM-2000,  plus  a  variety  of  word  games 
such  as  Hangman,  Anagrams  and 
Jumble.  A  Scrabble  and  crossword 
puzzle  word  list  helps  find  difficult 
missing  words.  Specially  designed  logic 
strategy  games,  a  vocabulary  builder, 
and  a  special  browsing  function  have 
also  been  added. 


New  Products  notices  are  compiled  by 
the  Antic  staff  from  information 
provided  by  the  products'  manufac- 
turers. Antic  welcomes  such  submis- 
sions, but  assumes  no  responsibility 
for  the  accuracy  of  these  notices  or  the 
performance  of  the  products  listed. 
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Antic-PAK 

Powerful  BASIC  disk  utility  collection. 


•  By  Eugene  Koh 

Antic-Pak  is  a 
collection  of  fast, 
powerful  disk  utili- 
ties, written  in  plain 
Atari  BASIC  with 
no  machine  lan- 
guage subroutines. 
Beginning  BASIC 
programmers  can 
take  apart  these 
modules  and  study 
them  to  learn  more 
about  disk  manage- 
ment techniques. 
This  BASIC  pro- 
gram works  on  all 
8-bit  Atari  com- 
puters of  any  mem- 
ory size,  with  disk 
drive. 
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Antic-E^  is  a  collection  of 
disk  utilities,  written  in 
plain  Atari  BASIC  with 
no  machine  language 
subroutines.  It's  fast,  powerful,  easy 
to  use,  and  compatible  with  most 
printers.  Most  of  its  functions  can  be 
carried  out  equally  well  by  BASIC  and 
DOS,  but  with  a  structure  that  you  can 
study  directly,  Antic-Pak  provides  an 
excellent  demonstration  of  BASIC 
disk  management  techniques  for  the 
beginning  programmer 

ANTIC-PAK  PROGRAMS 

Antic-Pak  contains  the  following 
five  complete  program  routines.  Each 
one  will  run  independently  when  you 
select  it  from  the  main  menu.  All  you 
have  to  do  is  follow  the  onscreen 
prompts.  To  get  started,  TVpe  in  List- 


ing 1,  ANTICPAK.BAS,  check  it  with 
TYPO  II  and  SAVE  a  copy  before  you 
RUN  it. 
Convert  File  to  BASIC  Loader 

will  take  any  file  and  turn  it  into  raw 
decimal  DATA  statements  with  a 
BASIC  Loader  program  on  top.  A 
BASIC  Loader  program  is  an  easy-to- 
type  program  which  creates  a  hard- 
to-type  program. 

The  resulting  file  created  with  this 
program  will  be  a  BASIC  loader  pro- 
gram that  the  reader  types  in.  When 
RUN,  the  loader  will  write  the  origi- 
nal file  exactly  as  it  was  on  the  origi- 
nal disk.  In  addition,  there  is  a  check- 
sum routine  added  to  the  loader  that 
makes  sure  that  every  number  the 
reader  types  in  from  the  DATA  state- 
ments is  jcorrect. 

To  use  this  routine,  just  type  the 
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name  of  the  file  you  wish  to  convert, 
(don't  type  in  any  D:  device  identi- 
fiers), then  type  the  name  to  give  the 
converted  version.  Finally,  type  the 
starting  line  number  and  the  line 
number  increment  for  the  converted 
program.  Antic-Pak  will  do  the  rest. 

DIR  Command  Creator  writes  a 
command  to  disk  that  will  let  you 
bring  up  a  two-column  directory 
while  in  BASIC,  with  a  simple  ENTER 
command.  The  DIR  Comjnand  Cre- 
ator makes  a  one-sector  file  called 
DIR.  Once  this  file  is  on  your  disk,  just 
type  ENTER  "D:DIR"  to  get  your 
two-column  disk  directory. 

File  Management  Helper  is  a  fast 
and  easy  menu  program.  It  goes 
through  the  files  on  the  disk  one-by- 
one,  letting  you  delete,  rename,  lock, 
and/or  unlock  each  file  with  a  single 
keypress. 

The  Garbage  Remover  utility  for 
Atari  BASIC  Revision  B  users  will  fix 
a  bug  that  can  make  files  too  long  for 
memory,  crashing  programs  before 


you  realize  it!  Each  time  you  LOAD 
and  SAVE  a  program,  BASIC  appends 
16  unnecessary  bytes  to  it.  The  Gar- 
bage Remover  gets  rid  of  these  extra 
bytes  by  LISTing  your  program  to 
disk,  typing  NEW,  then  ENTERing  it 
back  again. 

To  learn  more  about  this  bug,  see 
Matthew  Ratcliffs  Revision  C  Con- 
verter, (Antic,  Sept.   '85.) 

To  determine  which  version  of 
BASIC  you  have,  type  PRINT 
PEEK(43234).  If  you  get  a  162,  you 
have  Revision  A  BASIC.  A  96  means 
you  have  Revision  B  and  a  234  means 
you  have  Revision  C. 

The  80-Column  Disk  Directory 
utility  will  print  out  a  space-saving 
disk  directory  in  four  columns,  using 
the  full  capacity  of  your  printer   A 

Eugene  Koh  is  a  thirteen-year-old  from 
long  Island,  NY.  His  work  was  published 
in  COMPUTE!  Magazine  prior  to  his 
Antic  debut  here. 

Listing  on  page  25 


COMING  NEXT 
IN  APRIL  '89  ANTIC 


ADVENTURE  WORKS 

Write  your  great 
text  adventure 

MINIMON 

High-power  PEEK  and 
POKE  from  DOS 

DISK  BONUS... 

The  mind-boggling 

conclusion  to  ESCAPE 

FROMDISPOZON 
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ALPHA  SYSTEMS  is  constantly  Innovating  to  provide  more  power 
for  your  8-bttAtari5 


HACK  BACK 

Special  OFFER 

The  Alpha  Systems  HACK  PACK  contains  all  our 

tinesf  products  for  rnakmg  Back-up  copies. 

Analyzing,  Understanding  and  Protecting  your 

Atari  programs  It  comes  complete  with  Atari 

Protection  Techniques  (Book  and  Disk  I),  Advanced  Protection  Techniques  (Book  and  Disk  II},  The 

Chipmunk.  The  Scanolyzer.  The  Impersonator  and  Disk  Pock  1 000  Worth  over  S 1 50  Get  them  all 

for  the  special  price  ot    Just  $99.95 

Atari  Software  Protection  Techniques  Vol  I  &  II 

These  Book  and  Disk  packages  detail  the  most  advanced  copy  protection  methods  in  use  today  They 
guide  you  ttirough  the  methods  used  to  cieate  the  protection  as  well  as  the  copying  techniques  to  get 
around  them  They  include  intormotion  on  Phreaking  •  Hacking  ■  On-line  securtiy  •  Black  boxes  •  Selt- 
deslructing  programs  ■  Pirate  bulletin  board  systems  •  Logic  bombs  •  New  piiacy  lews  •  Hardware 
data  keys  •  Weak  sectoring  (Phantom,  Fuzzy  and  unstable  sectors)  •  Overfilled  tracks  •  ORG  errors 
Bonk  Select  cartridges  and  MUCH,  MUCH  MORE.  The  disks  include  automatic  program  piotectors. 
Protection  Scanners,  directory  hiding  ond  more. 
BOOK  I  and  DISK  I  $24.95 

BOOK  II  (Advanced  protection)  and  DISK  ii     $24.95 
Special  Offer,  Order  fc>otti  sets  for  Only  $39.95 

CHIPMUNK 

AutomoliC  Disk  Bock-Up  System.  Make  perlectly  running  unprotected  back-up  copies  ol  hundreds  of 
the  mosi  popular  Atari  programs.  Chipmunk's  sophisticated  programming  Automatically  finds  and 
REMOVES  copy  protection  from  most  Atari  programs,  Back-up  even  heavily  protected  programs  with 
ease  Finally  a  back-up  svstem  that  needs  no  special  hardware  or  skills. 

(If  you  need  o  full  list  ot  what  Chipmunk  copies,  coll  or  whle  tor  our  free  catalog)  $34.95 

Scanalyzer  Automalically  scan  &  analyze  commercial  programs.  Unlock  programming  secrets  and 
learn  from  the  masters  $29.95 

Impersonator  Cartridge  to  Disk  bock  up  system.  Create  running  back-up  copies  of  any  cartridge 
-~-f| (upto16K)     529.95 

X^  CHEAT 

Gel  more  Ifom  your  games  Willi  CHEAT  Tired  ol  spending  days  Irying  lo  beal  a  game?  Tired  ol  getling 
slack  jusi  when  you  need  anolher  lile'  Chenl  is  on  inrovolive  new  produci  Ihol  gives  you  Ihe  chonce 
you  need  lo  Peal  your  lovorile  games.  Cheol  works  wilh  hundreds  ol  Atari  gomes  lo  give  you 
unlimiled  lives  or  power  End  Ihe  iruslrolion  and  gel  hours  more  enjoyment  Irom  your  gomes  (Call  or 
wrile  Alpho  Systems  lor  our  tree  catalog  wilh  c  tull  list  ot  Ihe  programs  thai  work  with  Cheat)    ONLY  $24.95 

BASIC  TURBOCHARGER 

NOW  lor  the  first  time  o  BASIC  programmer  con  get  the  power  flexibility  and  incredible  speed  of 
machine  language  BASIC  TURBOCHARGER  is  o  book  and  disk  package  that  contains  over  1 50 
ready  to  use  machine  language  routines.  Complete  instructions  show  how  to  add  them  to  your  own 
BASIC  programs  to  get  these  features  and  more:  •  Smooth  Scrolling  ■  Ployer/Missiie  control  •  Load  & 
Save  Picture  files  •  Sorting  and  Searching  •  Special  Effects  Graphics  •  Incredible  Speed  •  Much,  Much 
More  •  Ovef  1 50  programs  You've  heard  ot  tlie  power  of  Assembler  now  harness  it  for  your  own 
"^^s    $24  95 

"216-374-7469 
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POP-N-ROCKER 


PARROT  II 

An  All  New  Parrot  sound  digitizer  for  your  Atori,  Parrot  Ii  is  a 
sophisticated  new  hardware  device  thai  plugs  info  your  joystick 
port.  Parrot  II  has  two  inputs,  One  for  a  microphone  and  one  for  a 
powered  source  such  as  a  tope  player,  radio  or  Comoacf  Disk, 
The  Powerful  Parrol  II  software  lets  you  record  sounds  info  your  computer  and  ploy  them  back  on  any 
Alan.  Parrot  II  turns  your  computers  keyboard  info  a  musical  instrument  with  nine  different  sounds 
covering  three  octaves  each.  The  sounds  con  be  onyttiing.  a  dogs  bark,  a  piano,  o  complete  drum 
set,  0  symphony  or  your  own  voice. 

Parrot  II  lets  you  modify  the  sounds  on  a  graphic  display  to  create  brand  new  sounds  and  special 
effects  Best  ot  all,  the  sounds  and  voices'con  be  put  into  your  own  programs  that  con  be  used  on 
any  siondord  Alan.  Explore  the  world  of  digital  sound  and  music.     ONLY  $59.95 
Pre-llecorded  Sound  Disk  tvlore  pre-recorded  sounds  for  Parrot  $4.95 
PARROT  II  Demo  Disk  (Does  not  require  Parrot  to  run)  $5.00 

a  lost  paced,  multi-player  trivia  gome  that  mixes  questions 

with  reai  songs  (digitized 
with  Parrot).  Be  the  first  to  identify  the  songs  and  answer  the  music  trivia  questions.  Pop-N-Rocker 
comes  with  three  data  disks  and  lets  you  add  new  questions  so  it  will  never  get  old.  You  con  use  a 
Parrol  Sound  digitizer  to  odd  new  songs  tool  Use  any  kind  ot  music  from  Rock  lo  Classical  to 
Nursery  Rhymes.  A  new  concept  in  enlertamment  and  a  perfect  add-on  tot  Parrot.  $24.95 

COMPUTEREYES  &  MAGNIPRINT  II  + 

Tum  your  computer  into  a  digital  portrait  studio.  This  complete  package  lets| 

you  capture,  save  &  print  digital  images  from  your  Video  Camera,  VCR 

or  TV  COMPUTEREYES  tiordware  plugs  directly  into  your  joystick  ports  tor 

easy  use.  Print  your  picture  on  o  6  foot  poster  $119.95 

ComputerEyes  camera  system 

Comes  complele  wilh  everything  above,  plus  a  block  and  white  video 

camera  and  connecting  cable.   $329.95 

Graphics  9  Software  -  Add  o  new  dimension  to  your  COMPUTEREYES 

piclLires     captures  images  in  16  shades  of  grey  $12.00 

Magniprinf  11  + 

Easily  Ihe  most  powerful  print  program  avoilable  today  Print  graphics  from  almost  any  lormol  in 

hundreds  ol  shapes,  sizes,  and  shades,  Supports  color  printing  and  lets  you  create  giant  posters. 

Mogniprint  II  +  lets  you  stretch  and  squeeze,  invert,  add  text,  adjust  shading  and  much  more. 

Works  with  EPSON,  NEC,  Citoh,  Panasonic,  Gemini,  Star,  XMM801,  and  compatible  printers.  (850 

interlace  or  equivalent  required).  $24.95 

Graphics  Transformer 

Now  you  con  combine  the  most  powerful  features  of  all  your  graphics  programs.  Create  print  shop 

icons  Irom  a  Koala  pod  picture,  from  a  photo  digitized  with  ComputerEyes,  or  any  picture  file. 

Graphics  Transformer  lets  you  Shrink,  Enlarge  and  Merge  pictures  for  unequoled  flexibility.     $22.95 

YOUR  ATARI  COMES  ALIVE 

SAVE  MONEY  Finally  on  alternative  to  buying  expensive  computer  add-ons.  Your  Atan  Comes  Alive 
shows  you  how  to  built  ttiem  yourself.  This  'How-To'  book  and  disk  package  gives  you  complele 
step  by  step  instructions  and  programs  needed  to  built  and  control  these  exciting  devices  and  MORE; 
•  Light  Pen  •  Ligtit  &  Motor  Controllers  -Alorm  Systems  •  Voice  Recognition  •  Environmental  Sensors 
•Data  Decoders  •  More  than  1 50  pages  Tfour  Atari  Comes  Alive  $24.95 
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GIANT  WALL  SIZED  POSTERS. 


VISA  &  MASTERCARD,  ORDER  BY 
PHONE,  OR  SEND  MONEY  ORDER  TO: 


ALPHA  SYSTEMS  1012  SKYLAND  DRIVE  MACEDONIA,  OH  44056      FREE  BONUS:  DELUXE  SPACE  GAf^ES  (3  qames 
on  0  disk)  Free  wiin  any  order  ol  3  or  more  ilems.  Include  S3. 00  shp  &  hdig  (US  Conado)  Ohio  res.  odd  5 '2%  sales  tax. 
Foreign  orders  odd  38.00  shp  &  tildg.  Call  or  write  lor  tree  catalog,  Customer  Service  Line  (216)  467-5665  M-F  9-3. 


Order  Toll  Free  J^  since  mz  ^.     -  Order  Toll  Free 

800-558-0003^o'npui(fibLliii^800-558-0003 

WI  Orders  &  Info  414-357-8181  Co/l  AUmet  ff.lecttOn.lCi  wi  Orders  &  Info  414r357-8181 


ST  Hardware 


■^.•ftgA 


Disk  Drives 


Supra  30  Meg 649* 

*F  R  E  E    Delivery  in  the 

Continental  U.S.A. 


Indus  GTS-100 189 

3.5- 8F-314  Compatible 

IB  5.25" 219 

ST  Host  Controller  .Call 
Drive  Master 44.95 


Digitizer  Special 


IMG  Image 
Scanner 


Package  Includes 

•  PC  Ditto 

•  ST/PC  5.25"  Drive 


$74.95 


MODEM  SPECIAL    m     Casio  MIDI  Synths 


Supra  2400  baud  modeiti 
ST  modem  cable 
Flash  VI. 6    Software 


$165 


IBM  Emulation  Special  ■    ST  ACCESSORIES 


Anti-Glare  Screen 19.95 

Video  Key 64.95 

3.5  Drive  Clean  Kit 9.95 

6  Way  Surge  Protector.  14.95 
6  FT SF 354/31 4  Cable.  19.95 

Monitor  Master 44.95 

Mouse  Master 34.95 

Mouse  Pad 8.95 

Mouse  House 6.95 

3.5"SS/DDDisl<s** 11.95 

.?  5"  ns/nn  Disks**  ■■■  1.5  95 


CPS-101 349 

CT-640 279 

MT-540 209 

MT-240 169 


8-Blt  Hardwaris 


Computer 
Special 

130XE    $29Pi 
Computer 


With  XF-551 


rXF-551  DiskDrlv^ 
Double  Density 

$179 


J 


v> 


XEP-6Q  80 
Column  Card 

$7995 


J. 


H/lodernPackag^ 

Avatex  1200  HC'  P.R.  Connec 
tion  •  850  Express  Software' 

^°fa^^  $179 


Misc.  Hardware 


PR-Connection 59.95 

US  Doublet 49,95 

Animation  Station 59.95 

Supra  1150  Interface CALL 

Grapliic  AT  Interface 39.95 


'    JOYSTICKS'"* 

Wico  Super  3-Way 19.95 

Starfighter 8.95 

Tac3 10.95 

Tac5 14.95 

Slick  Stick 7.95 

Epyx500XJ 12.95 

Epyx200XJ 9.95 


{Note:  priMS  good  with  any  other  purchace} 


Printers  -  Modems  -  Acc« 


Panasonic 

1180  NEW CALL 

10911-11 185 

1092 329 

P1 124  NEW24pin 329 

laser  Partner 1599> 


MODEMS 

Avatex  1 200  E 69 

Avatex  2400  HC 155 


Supra  2400  SPECIAL 149 

SPECIAL  INCLUDES  :  Supra  2400  modsm,  cable 
and  Free  shipping  In  Continental  USA , 


/^CCESSORIE§\ 


5.25"  Disk  Notcher 4.95 

6  Way  Surge  Protector14.95 

Printer  Stand 5.95 

.1000  Sheets  Paper 19.95, 


Star 


NX-1000 175 

NX-1 000  Rainbow 229 

NX-2400 319 

LASER 1795, 


8-Bit  Atari  Software  1989  Blowout  Sale 


Atari  Dos  2.5  on  Disk 

Defender  on  Cartridge 

ET  Phone  Home  on  Cartridge 
Home  Filing  IVIanager  on  Disi< , 

Millipede  on  Cartridge 

Atari  Point  on  Disk 

Time  Wise  on  Disk 


$5 

$5 

$5 

$5 

$5 

$8 

$5 


Order  Toll  Free 

800-558-0003 

WI  Orders  &  Info  414-357-8181 


*  Fret  Dolvwy  Applies  To  Dtthwy  In  T>»  Conllnontaf  U.8.A.  "Prtees  good  wlthiny 


Order  Toll  Free 

800-558-0003 

Wl  Orders  &  lufo  414-357-8181 


Mon  -  FrI  9  am  -  9  pm  CST 
Sat  11  am -5  pm 


Your  ST  STORE  thafs  as  close  as  YOUR  PHONE 
^  Since  1982  ^m  M        » 

'Con.hu.ma'c^l&att.on.lc^ 


[•■■,l!'V»i>^ri 


Sat  11  am  -  5  pn 


ANT-2-8  9 


."^ 


ST  HARDWARE  IS  LOCATED  ON  THE  LEFT  PAGE 


I  ■H.- 


ST Productivity  &  Education  Software  Specials 


l8t  CkW 31.85 

t§t  LBtlera  ind  Words 20.M 

1«l  Wortt-PliB 67.05 

220  8T 32.95 

30  DwatepBr's  Disk t9.95 

30  Fort  PKk»oB  1  or2 17.W 

30  Plotlof  &  Prlnbr  Driver 17.95 

A-Calc  Prime 25.95 

A-Chirl 14.95 

AB-  Zoo 19.95 

AbKlwBoolo CALL 

Adtp 1549.« 

Adv.  d  SInbad 31 .95 

Aegis  Animator 43.95 

Awop  FaWes 31 .95 

Al  About  Americi 36.95 

Animal  Kingdom 24.95 

Animator.  Tlie 25.95 

Aral)lan  Nights 31.95 

Art  and  Film  Director 46.95 

Assempro 39.95 

Athena  II 67.95 

Award  Mattw 24.95 

Bach  Pak 64.95 

Base  Two 39.95 

BBS  2.0 49.95 

C-Brefl;B 32.95 

Calendar 19.95 

Certllcale  Maker 25.95 

Chan  Pak  81 32.95 

Clrcul  Maker 67.95 

CopylsI2 159.95 

Cofnorman 32.95 

Crystal 14.95 


'BflTMmDtakforMLBB 18.95 

30  BrBak-TtFU 25.95 

Academy 24.95 

Advincdd  D&D  Heros  of  the  Lance  26.95 

Aktal 24.95 

Alrbal  Conslructton  Kit 17.95 

Alcon 25.95 

AlenRrea 26.M 

Al  Aboard 17.95 

Alomato  Reality 25.95 

Andrad  Declskxi 22.W 

Anrab  o(  Rome 22.95 

ApstHi  Trilogy  14.95 

AquaVenlure CALL 

Arctic  Fox 13.95 

Arena 14.95 

Artanokl 22.95 

Art  &  F»m  Director 44.95 

Attack  on  London 21.95 

Amoduel 24.95 

Awesome  Arcade  Act.  Pack 32.95 

Balance  o(  Power 32.95 

Barbarian 25.95 

Bards  Tate 31.95 

Battle  Ship 17.95 

Beat 19.95 

Bflfmuda  Pro|ecl 25.95 

Ber7wk3 22.95 

Better  Dead  Than  Allen 21 .95 

Btsmark 25.95 

Black  Caiidron 25.95 

BiKk  Lamp 17.95 

BbchBiHtef 25.95 

Bobo  (aUr  Craz^} 17.95 

Boiider  Dasti  Cons  Kit 17.95 

Breecti 25.95 

Bridge  5.0 22.95 

eubfata  Bobble 25.95 

Bubbh)  ahost 21 .95 

CiWornla  Same* 28.95 

Cipt.  Btood 32.95 

CardBttarks CALL 


Cyber  Cortrol 39.95 

Cyber  Paint 48.95 

Cyber  Sculpt 54.95 

Cyber  Studio.  Ttie 58.95 

Archllecural  Design  Dbk 19.95 

Cartoon  Design  Disk 19.95 

Future  Design  Disk 19.95 

Mk;rot»t  Design  Disk 19.95 

Video  TItltog  Design  Disk 19.95 

Cyber  Texture 32.95 

Cyber  VCR 49.95 

Data  Manager  ST 48.95 

Datamaps 17.95 

Datmap?  II 17.95 

DB  Man  5.0 144.95 

Decimal  Dungeon 24.95 

Degas  EBte 38.95 

Deluxe  MInlcom 39.95 

Desk  Cart  68.95 

Desk  Top  Publsher 80.95 

Education  Qraphtes 25.95 

People.  Places,  Things  Graphics  25.95 

9/mbols  &  Slogans  Graphics 25.95 

Dlgl-Drum 24.95 

Drafh 114.95 

Oraftx  Large  Data  Plotter 87.95 

Draw  Art  Pro 49.95 

Dsk  Tp  Pub  Ltti/Easy  Draw 64.95 

Dyna  Cad 449.95 

Easy  Draw 64.95 

Easy  Score 67.95 

Easy  Toote 32.95 

ElKlTD  Calendar 35.95 

Fast 31.95 


financial  Plus 114.95 

Fingers 34.95 

Rrst  Shapes 20.95 

Rash  1.6 19.95 

Rashback 79.95 

Font  Pak  1  for  Easy  Draw 25.95 

Forts  &  Bofdera'P.M 21.95 

Fortz 22.95 

Forth  MT 32.95 

Fraction  Actton 24.95 

B  Plus  + 27.95 

9.I.8.T. 22.95 

Qenesis 49.M 

QFA  Artist 49.95 

GFA  Artist 49.95 

9FA  Basic  2.0 19.95 

9FA  Baste  3.0 64.95 

SFA  Book  3.0  19.95 

QFA  Companion 32.95 

8FA  Compiler 38.95 

9FA  Draft  + 99.95 

GFA  Object  67.95 

GFA  Vector 32.95 

GhoslV  Qrammers 31.95 

91n  Patch 104.05 

Hard  Disk  Backup 25.95 

Human  Design  Dhk 19.95 

Hyper  Switch 19.95 

18  Copy 21.95 

IB  Disk  Utility 21.95 

IB  Hard  Disk  Back  Up 21.96 

Informer,  The 67.95 

Irteriink 24.95 

Invasion 19.95 


Juggler  Utility 32.95 

KC8  Level  II 160.95 

Keyboard  Contr8e(iuencer 149.05 

Keys 48.M 

Kid  Talk 20.95 

KInderama 24.95 

LabHmaster  Elite 27.95 

Lands  of  the  Unicorn 21.05 

Laser  C 1Z4.95 

LC8  Wanderer 25.95 

LOW  Basic  2.0 54.95 

LOW  Power 99.95 

Logic  Master 31.95 

LogistixJr 57.95 

M-Cjche 25.95 

M-Dbk+  25.95 

Macro  Mouse 22.95 

Magbal  Myths 31.95 

MalOf  Motion 25.95 

Make  It  Move 46.95 

Maps  and  Legends 22.95 

MafkWIHIams  C 114.95 

Mark  Wlfliams  CSD 43.95 

Master  Cad 124.95 

Master  Plan 58.95 

Master  Tracks  Pro 219.95 

Math  Talk 20.95 

Math  Talk  Fractions 20.95 

Malh  Wizard 24.95 

Mavis  Beacon  Typing 32.95 

Micro  Cookbook 32.95 

Micro  Lawyer 39.95 

Midi  Maze 25.95 

MIghly  Mail 32.95 


MInicom 25.95 

Mother  Soose 19.95 

MouseTracks 84.95 

Musk;  ConstruclkinSet 33.95 

Music  StwSo  88 38.95 

Navigator,  The 32.95 

Neo  Desk 18.95 

P.I.E 19.95 

PAGE  STREAM  (pub  plnr  pro)  ..,,  127.95 

Pakitpro 32.95 

Partner  Forts  1  or  2 19.95 

Partner  Forms 19.95 

Partner  8T 32.95 

PC  Ditto  3.0 64.95 

Personal  Draw  Art  I 19.95 

Personal  Money  Mgr 32.95 

PHAfar 58.95 

Powerplan 49.95 

Printmasler  Plus 24.95 

Art  Gaiety  1 , 2.  or  3 18.« 

Pro  Drum 19.05 

Pro  Midi  19.95 

Pro  Sound 19.95 

Pro  Sound  Designs 84.95 

QMI  BBS  ST 31.95 

QuIcktran 22.95 

Read  &  Rhyme 24.95 

Read-A-Rama 31 .95 

Realtber 150.95 

Regert  Base  1.1  79.95 

Report  Word  II 48.95 

Replay  4 89.96 

Revofver 32.95 

Roland  D/110 74.95 


NEW  LOW  PRICES 


ST  Recreation  Software  Specials 


Carrier  Command 29.95 

Certertold  Squares 19,95 

Champ  Wrestling 12.95 

CHAOS  "Dungeon  Master  Part  If  .18.95 

Chessmastef  2000 28.95 

Chronoquest 32.95 

Corruption 29.95 

Cosmte  Relief 23.95 

Crash  gan'ett 25.95 

Crystal 14.95 

Cyber  Complex 18.95 

Dark  Caste 29.95 

Dealh  Sword  t2.« 

Defender  of  Crown 32.95 

Deja  Vu 32.95 

Dive  Bomber 28.95 

DouWe  Dragon 26.95 

Dream  Zone 25.95 

Dungeonmaster 24.95 

Dungeon  Master  Part  II  'CHAOS"  18.95 

Elite 29.95 

Empire 31  .M 

European  Scene  Disk 17.95 

Extensor 18.95 

f=-1 5  StrBce  Eagle 25.95 

Fateon  F-16  32.95 

Female  Data  Strip  Poker 16.95 

RnalAssuK 28,95 

Hre  and  Forget 25.95 

Fire  Zone 23.95 

RKjW  Simulalor  II 32.95 

Foundatkm  Waste 24.95 

Fright  Run 25,95 

Games:  Summer  Ed 28,95 

Games  :  Wtoter  Ed 28.95 

Qalo 24.95 

Gauntlel 32,95 

Gladiator 25.95 

Gtobal  Cmmdr 26,95 

GoidottheReakn 24.95 

Goldrunner 25,95 

SoWrunnar  Seen  Disks  1  Or  2 10.95 


9oldrunner2 25.95 

QoneFlsh'n 29.95 

GuiW  of  Thieves 29.96 

Gunship 32.95 

Harrier  Combat  Slmubler 32.95 

Hero's  of  tho  Lance 25.95 

Htot  Disk  lor  Bards  Tale 15.95 

Hole  In  One  Miniature  Qotf 18.95 

Hollywood  Poker 18.95 

Hunt  tor  Red  October 33.95 

Hyperdome 22.95 

I  Ludicrous 21.95 

Ikari  Warrior 25.95 

Impossible  Miss  fl 28.05 

Irternattonal  Soccer 25.95 

Into  the  Eagla's  Nest 25.95 

Japan  Scenery  Dbk 17.95 

Jet 32.M 

Jinxter 25.95 

Joker  Poker 32.95 

Jupiter  Probe t7.M 

Karale  Kkl  II  25.95 

Karalcka 22.95 

Kkig's  Quest  1  or  2  or  3 32.M 

Kirrg's  Quest  4  NEW 32.95 

Kosmic  Krelg 25.95 

Lancetot 26,95 

Leader  Board  Duo  Pak 17.W 

Leatherneck 25.95 

Leatherneck  4  Player  Adaptor 13.95 

Leburo  Suit  Larry 25.95 

Lebure  Suit  Larry  2  took'n  for  kive  32.95 

Uviathon  10.95 

Lock  On 25.95 

Lords  of  Conquest 13.95 

Lords  of  the  Rising  Sun 32.95 

Major  Motion 25.95 

Manhunler  New  York 32.95 

Manlax 17,95 

Master  NInta 26,95 

Malch-pokit 25.95 

Menace tO.95 


Melrocross 13.95 

Metropolis  2000  St 22.95 

Micro  League  Baseball  II 39.M 

MoetHus 24.95 

MONOPOLY  25.95 

MorlvHte  Manof 22.95 

Murder  on  the  AHantte 25.95 

Night  on  the  Town 22.95 

OblReratnr 25.95 

OWs 21.95 

OmeflaRun 25.95 

OperabonWoB 25.95 

Outrun 32.95 

Overlord 25.95 

Paladin 25.95 

Paper  Boy 32.95 

Phanta8te1.2or3 25.95 

Ptianlasm 22.95 

Pinball  Factory 25.95 

PhiBall  Wizard 21.95 

Platoon 25.95 

Pkjtos 19.95 

Polfce  Quest 32.95 

President  Elect  'SS 18.95 

Q-Ball 19.95 

Qbc 25.95 

QUPSlTonll 31.95 

Raslan 25.95 

RobolChargeOCNckarmupa 38.95 

Rebel  Unhierse 25.95 

Red  Alert 11.95 

Renegade 25.95 

RhitpofZitlln 25.95 

Road  Rakter 32.95 

Road  Wars 20.95 

Roadrunner 32.95 

R[wdwar2000 25.95 

Roadwar  Europa 28.95 

Rockel  Ranger 32.95 

Rockford 20.96 

RPV 24,95 

Rubkxjm  Alliance 20.95 


S.D.I 32.95 

Scan  PIx  llhjstrattons  24.95 

Scan  Pix  pets  &  animals 24.05 

Scan  PIx  reHg  4  holidays  24.95 

Scrabble 25.95 

Scruples 25.96 

Sentry 29.95 

Shadowgate  32.95 

Shoot  the  Moon 25.95 

Shuttle  2 25.95 

SHert  Servtee  25.96 

SHpheed 22.95 

Skibad 32.95 

Sky  Blaster 18.95 

Sky  Chase CALL 

Skylox 14.95 

Slaygon 25.95 

Sorcerer  Lord 23.95 

Space  Cutter 19.95 

Space  Harrier 32,95 

Space  Quest  1  or  2 32,95 

Space  School  Sim 22.95 

Space  Station  Obllvton 28.95 

Speed  Bugg/ 25.95 

Sports-  A-  RonI 13.95 

Spyvs8p/3 17.95 

ST  Comes  Alw 19.95 

STAC  The  Adwnturo  Creator 44.95 

Star  Fleet  1  34.95 

Star  9llder  II 29.95 

Star  Quake 19.95 

Star  Wars CALL 

Starstruck 14.95 

Stolar  Crusade 36.95 

STOS  The  Game  Creator 38.95 

Street  Cat  13.W 

Street  Soccer 28.95 

snip  Poker  2 25.95 

Sub  Battle  Skn 23.95 

Sundog 22.05 

Super  Cycle 12.95 

Super  Star  Hockey  32.95 


Scan  Art 32.05 

Score  Writer 25.05 

Shadow 19.05 

Space  Iriath ^.95 

Spectrum  512 43.05 

Speller  Bee 20.95 

ST  Art  Director 48.95 

ST  Becker  Text  ST 67.95 

ST  Replay  4 89.05 

8T Sprite  Factory 25.95 

ST  Talk  Professtonal 18.95 

Super  Charged  EZ  Draw 99.95 

Superbase  Personal 46.95 

Superbase  Pra 179.95 

Swftlcak:  ST 48.95 

Sytvia  Porter 48.95 

SympteTrac 414.95 

Sync  Trac  269.95 

Technical  Draw  Art  I 10.95 

Tempus 32.05 

Text  pro 32.05 

Thunder 26.95 

Time  Bandits 25.05 

Time  Link 33.05 

Trimbase 64.95 

Tune  Up 32.95 

Tunestnlth 57.95 

Turbo  ST 32.95 

UtHlty  Plus 39.95 

Video  Key 64.95 

VIP  Professtonal S4.95 

Word  Perfect 134.95 

Word-Up 48.95 

WordwrlterST 48.95 


Super  Star  Soccer 32.95 

TV.  Sports  Footbal 32.95 

Tanglewood 25.95 

Techno  Cop 28.95 

Temple  Apshai  Trilogy 12.95 

Temple  of  Doom 32.95 

Terror  Pods 25.95 

Test  Drive 24.95 

Tetra  Quest 25.95 

Three  Stooges  32.95 

Time  And  Magic 26.95 

Time  Bandits 25.95 

Tonic  Tile  25.05 

Tower  Toppler 28.05 

Tracker ...,, 20.05 

Tralblazer 32.95 

Transputer 22.95 

Twilights  Ransom  22.95 

Typhoon  Thomson 22.95 

USImall!  25.95 

UkimalV  38.05 

Uninvited 32.05 

UnlwfsalMllltirySknulator 32.05 

Universe  II 32.05 

UiWkjm 25.85 

Vampire's  Empire 18.95 

Vegas  Qambbf 22.95 

Virus 19.95 

Warship 38.95 

Wargame  Conslructton  Set  22,95 

Wartock 21.95 

WarsNp 38.05 

Western  Europe  Seen.  Disk 17  95 

Western  Games 18.95 

Winter  Challenge 10.95 

Winter  Games  12.95 

Wiz  ball  14.95 

Wizard's  Crown 25.95 

Work!  Games  12.95 

WWF  Mkro  Wrestling 39.05 

Xevlous 19.05 

Zyrwps 22.05 


No  surcharge  for 
MasterCard 

To  OnJ«  CII  Fi»« 

800-558-0003 


P.O.  BOX  17SS2JUI1.WAUKEE.WI  S3217 
ORDER  LINES  OPEN 

CSTSat11aii>4t 


eSmce  1982         ^       ^^  m  ,  *  _  _  | 

'aon.Au.fn.tt'CfjElactton.lti&  (*» 


Noiurcharjelor  ,„,^^^.,^,  „,^, 

ESSSi^^^  ui,,  ro»  T.«nnio.i  irro,  oni«r 

r«l.x  Numb.r  S10240e4U)  '"lu'H-.  •'  '•'  Wtaa  Ort.™  I 

(M<»»Ac».caMP<iTi«.wuQ,      41 4-357-81 81 1 


3  »rOHMTK3N:  rtMM  apMorry  Byatom.  For  tati  (M^sry  land  cathlat't  c^aok  or  rrvxiay  onMr.  Paraonal  and  ocxnpanr  oTwoki  alkx*  14  butkiaM  day*  to  daar.  Bchool  P.O.'i  w*4oom«.  aO.D.  otMrga*  ara  tX.fXL  In  Conttivntal  UBA  'noli da  13.00  tor  toftwara  ordi 
tot  twrdnai*  minlrrum  )6.00.  MiikrCartl  and  Vita  ordan  plaaia  Irwluda  Mrd  f.  axplraltori  data  and  algnaluta.  W1  raaUantt  plaaM  Inoluda  G%  ia>M  Uul  HL  AK.  FPO,  APO.  Puarto  Rbo  and  Canatfan  ordart.  ptaata  add  0%  (hipping,  Mnknum  tt.m.  Allothar  fof*4an  ordar* 
•hlpptnt.  minimum  aiOJX).  All  ordar  iMppad  outtUa  thaConHnantal  U.B.A  ara  •ni|>pad  f1r«t  data  lniur«d  UB.  malL  If  toralBn  ah^plng  oharrga*  anDaadlna  minimum  amounl,  you  wll  be  (i>a^oadl^aBddlllor>BlB^>ount  to  gat  your  paakagab  you  quicksand  tafaf/.A!  goods  i 
Induda  faotory  warwnty.  Dua  to  our  bw  prtoai  al  lalM  ara  Thai.  All  dafaoSm  ralurnt  muat  tiava  a  ra(um  autborhatton  number.  Plaata  call  (<14)a57-ai  B1  to  obtain  an  RAt  or  your  raturn  wll  rxH  ba  aooaptad  Pflcai  and  avaHaWlty  aubfaot  to  ehanga  without  notloa. 


BACK  ISSUE 


Complete  Your  Atari  "Toolkit' 


SAVE  25%  TO  35% 


How  To  Order: 


Simply  give  the  Order  Numbers  of  the 
issues  you  want,  and  include  the  letter 
corresponding  to  the  following  selections: 

A-  magazine  &  disk 
B-  magazine  only 
C-  disk  only 


Prices: 


Magazine  &  Disk 
Magazine  only 
Disk  only 


1  To  5  If  you  order  more 

Issues  than  5  Issues 

$7.00  each  $6.50  each 
$3.00  each  $2.75  each 
$5.00  each      $4.75  each 


Please  include  shipping  &  handling  charges: 
1  to  5  issues:   $1  for  each  issue 
6  and  over    :   $  5  plus  50c  for  each 
issue  over  5. 


Example:   lA-  is  for  "April  1983,   magazine 
&  disk" 

If  no  letters  are  indicated  in  your  order,  we 
will  automatically  send  you  the  magazine 
only  (B). 


FOR  ORDERS  ONLY  CALL  TOLL-  FREE 

(800)    234-7001  (7-5pm  PST.) 

MasterCard  &  Visa  Only 

Or  send  your  check  to:  ANTIC  BACK  ISSUES 
544  Second  Street  San  Francisco,  CA  94107 
California  residents  add  6  1/2%  sales  tax. 


Back  Issue  Order  Form 


Order  # 


Selection 
A.  B,  or  C 


Order  # 


Total  Issues   Ordered: 

No.  Issues  of  Sel.  A: . 
No.   Issues  of  Sel.   B: 
No.   Issues  of  Sel.   C; 


1  to  5 


Total  Issues 
Ordered: 

6  &  over: 


X  ^7  ea. 
X  $3  ea. 
X  $5  ea. 


x$6.50  ea. 
X  $2.75  ea. 
X  $4.75  ea. 


Selection 
A.  B,  or  C 


$_ 

:$_ 


Total  $ . 

Shipping  &  handling  $  _ 

Amount  enclosed  $_ 


□  Check  Enclosed     Q  VISA       □  MasterCard 

Name  

Address  


City. 


state 


Zip. 


Credt  Card  # 
Exp.    Date 


Canada,   Mexico  and  all  other  foreign  add  $1. 
per  issue.    Payment  in  U.S.  funds  must 
accompany  all  foreign  orders.    California 
residents  add  6  1/2  %  sales  tax. 

^W  ^^    The  ATARI  Htiource 


Missing  any  issues?  Looking  for  those  great  utilities, 

games,  and  reviews?  You'll  find  it  all  right  here! 

Copies  are  limited,  so  order  today! 


ORDER  # 


ISSUE 


1  ApriI1983:Games— 3-D  Maze,  Voyeur 

2  May  1983:  Telecomputing— Microids, 

Tele  Chess 

3  June  1983:  Databases— Stargazing, 

Dancin'  Man 

4  July  1983:  Adventure  Games —Dragonsmoke, 

Shoot-em-up  Math 

5  August  1983:  Graphics— 3-D  Fuji,  Keystroke 

Artist 

6  September  1983:  Education— P/M  Tutor 

7  October  1983:  Sports  Games— AutoCassette 

8  November  1983:  Sound  &  Music— Air  Raid, 

Casting  Characters 

9  December  1983:  Buyer's  Guide— 

AUTORUN.SYS,  Automate  Player/Missiles 

10  January  1984:  Printers— Pocket  Calendars, 

Screen  Dump 

11  February  1984:  Personal  Finance— TYPO, 

Gauntlet 

12  March  1984:  International  Issue— DiskRead, 

Poker  Solitaire 

13  April  1984:  Games— Risky  Rescue, 

Math  Wizard 

14  May/June  1984:  Exploring  XL  Computers- 

Escape  from  Epsilon,  Scroll  to  the  Top 

15  July  1984:  Communications— AMODEM, 

BASIC  Animation  Secrets 

16  August  1984:  Disk  Drives— Horseplay,  Recall 

17  September  1984:  Computer  Graphics- 

Graphics  Converter,  Olympic  Dash 

18  October  1984:  Computer  Learning— Bouncing 

Ball,  Antic  4/5  Editor/ Animator 

19  November  1984:  Computer  Adventures— 

Adventure  Island,  Advent  X-5 

20  December  1984:  Buyer's  Guide— Infobits, 

Biffdrop 

21  January  1985:  Super  Utilities— TYPO  II, 

DISKIO 

22  February  1985:  Finances— Home  Loan 

Analyzer,  Drum/Bass  Synth 

23  March  1985:  Printers— Kwik  Dump,  Font 

Maker 

24  April  1985:  Computer  Frontiers- Dot  Matrix 

Digitizer,  Speech  Editor 

25  May  1985:  New  Super  Ataris— Son  of  Infobits, 

Arena  Racer 

26  June  1985:  Computer  Arts— View  3-D, 

The  Musician 

27  July  1985:  Computer  Challenges— Miniature 

Golf,  Guess  That  Song 

28  August  1985:  Telecommunications — Atari 

'Toons,  Pro*Term 

29  September  1985:  Power  Programming — 

One-Pass  Disk  Copy  130,  Crickets 


ORDER  # 


ISSUE 


30  October  1985:  Mind  Tools— Graph  3D,  GEM 

Color  Cascade 

31  November  1985:  New  Communications— 

TYPO  II  Double  Feature,  130XE  Memory 
Management 

32  December  1985:  Shoppers  Guide— DISKIO 

Plus,  Box-In 

33  January  1986:  Atari  Products  are  Back- 

Appointment  Calendar,  Dungeon  Master's 
Apprentice 

34  February  1986:  Printer  Power— T-Shirt 

Construction  Set,  Forth  Escapes 

35  March  1986:  Practical  Applications— Lunar 

Lander  Constructor,  Lie  Detector 

36  April  1986:  Computer  Mathematics— Fractal 

Zoom,  3-D  Fractals 

37  Mayl986:4th  Anniversary— Digital 

Gardener,  Molecular  Weight  Calculator 

38  June  1986:  Summer  Computing— Weather 

Wizard,  Bomb  Squad 

39  July  1986:  Computer  Arts— Amazing  Card 

Shuffler,  Graf  con  ST 

40  August  1986:  Online  Communications— 

Ultrafont,  Floppy  Filer 

41  September  1986:  Weather— WEFAX  Decoder 

(8-bit/ST),  BASIC  Tracer 

42  October  1986:  Hard  Disks— Video  Stretch, 

TYPO  ST 

43  November  1986:  Personal  Finance— Budget 

dataBASE,  V-Graph 

44  December  1986:  Shoppers  Guide— Stepper 

Motors,  Nuclear  Waste  Dump 

45  January  1987:  Talking  Atari— Talking 

Typewriter,  Rebound 

46  Februaryl987:  Word  Processing— SF 

Fogger,  Electric  Charlie! 

47  March  1987:  Dvorak  Keyboard, 

Multi-AUTORUN 

48  April  1987:  —Designer  Labels,  Taxman 

49  May  1987:  5th  Anniversary — A-Rogue,  Poker 

Slot  Machine 

50  June  1987:  Animation — Verbot  Commander, 

Citadel 

51  July  1987:  Print  Anything— Ghost  Writer, 

Your  Net  Worth 

52  August  1987:  Atari  Muscle — Sideways 

Spreadsheet,  Diamond  Dave 

53  September  1987:  Work/Play— Mighty  Mailer, 

Maximillian  B. 

54  October  1987:  Football  Predictor— Antic 

Prompter  (8-bit/ST),  Spelling  Checker 

55  November  1987:  Practical  Applications— 

Critical-Path  Projects,  WYSIWYG  Cassettes 

56  Decemberl987:PrintHoliday— PS.  Envelope 

Maker,  Antic  Publisher 


lypc-In  Software 


FEATURE  APPLICATION 


Flashy  electronic  billboards  with  your  Atari. 
By  Andrew  Thomas 

SignMaker  is  a  BASIC  program  that 
will  turn  an  8-bit  Atari  computer 
with  at  least  64K  and  disk  into  an  elec- 
tronic sign  displaying  as  many  as  10 
lines  of  moving  text  in  four  colors,  with 
scrolling,  blinking,  fading,  uppercase 
and  lowercase  characters  and  graphics. 


If  you  have  a  message  to  get  across, 
electronic  message  display  centers  are 
a  highly  effective  medium.  Electronic 
signs  attract  and  hold  viewers'  atten- 
tion with  an  ever-changing  display  of 
scrolling  messages  and  graphics. 

But  these  signs  are  expensive.  A 
one-line  indoor  message  center — the 
cheapest — costs  several  hundred  dol- 
lars. And  all  that  sign  will  do  is  dis- 
play uppercase  characters  scroUing 
and  maybe  blinking. 

SignMaker  is  a  menu-driven  editor 
that  will  turn  your  inexpensive  64K 
8-bit  Atari  computer  into  an  electronic 
sign  with  up  to  10  lines  of  text,  four 
colors,  scrolling,  blinking,  fading,  up- 
per and  lower  case  text  and  graphics. 

GEniNG  STARTED 

If  you  don't  have  a  business,  Sign- 
Maker  can  be  used  to  title  videos  or 
as  a  high-tech  refrigerator  door 
("BiUy!"  <scroll  left,  blink,  blink> 
"Don't  forget  to  take  out  the  trash!" 
<bright  graphic  of  trashcan,  just  in 
case  he's  forgotten  what  it  looks 
like>.) 

Type  in  Listing  1,  SIGN.BAS,  check 
it  with  TYPO  II  and  SAVE  a  copy  be- 
fore you  RUN  it.  Be  especially  careful 
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typing  the  data  and  set-up  section 
from  12000  to  13000.  An  error  here 
can  cripple  the  entire  program. 


SO  IPOU  think 

#  #   a  new  car  is 

not  in  the 

*  #     cards 

«  «  think  again 


visit    rosebud   cars 


If  you  have  trouble  typing  the  spe- 
cial characters  in  lines  12610-12642, 
don't  type  them  in.  Instead,  type  List- 
ing 2,  check  it  with  TYPO  II  and  SAVE 
a  copy.  When  you  RUN  Listing  2,  it 
creates  these  hard-to-type  lines  and 
stores  them  in  a  file  caUed  LINES.  LST. 

To  mei^e  the  two  programs,  disk 
users  LOAD  "D;SIGN.BAS"  and  then 
ENTER  "D:LINES.LST.".  Remember  to 
SAVE  the  completed  program  before 
you  RUN  it. 

SignMaker's  menus  are  arranged  in 
a  branching  "tree"  structure.  Choos- 
ing an  item  in  a  menu  will  often  lead 
to  yet  another  menu.  Pressing  [ESC] 
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returns  you  to  the  previous  menu. 
Select  items  from  the  menu  using 
either  keyboard  or  joystick.  The  menu 
pointer  can  be  moved  with  a  joystick 
or  the  arrow  keys.  Press  [RETURN]  or 
the  joystick  button  to  select  an  item 
marked  by  the  pointer.  On  most 
menus  an  item  can  also  be  selected  by 
pressing  its  first  character  on  the 
keyboard. 

MAIN  MENU 

The  main  menu  offers  seven 
choices:  [P]lay,  [R]ecord,  [E]dit, 
[L]oad,  [S]ave,  [N]ew  and  [Q]uit. 
Throughout  SignMaker,  you  select  a 
command  simply  by  typing  its  first 
letter. 

[P]lay:  runs  your  message  in  a 
continuous  loop  onscreen. 

[Rjecord:  enter  your  message,  or 
add  on  to  an  old  one. 

[E]dit:  make  changes  to  an  existing 
message  script. 

[L]oad:  load  a  message  script  from 
disk. 

[S]ave  lets  you  save  your  current 
message  script  to  disk.  The  filename 
can  be  up  to  14  characters  long,  in- 
cluding the  directory  specification;  if 
the  DOS  you're  using  has  longer  file- 
names, the  maximum  size  can  be  in- 
creased in  the  DIM  statement  in  line 
12560. 

[N]ew  clears  the  current  sign  from 
memory  and  screen,  so  you  can  start 
a  fresh  project. 

To  show  you  what  you  can  do  with 
SignMaker,  a  sample  file  has  been  in- 
cluded on  this  month's  Antic  disk.  To 
play  it,  first  [L]oad  D:DISKS.SGC,  then 
choose  [P]lay.  The  sign  will  play  over 
and  over.  Press  any  key  to  stop  it  and 
you  will  be  returned  to  the  opening 
menu  at  the  end  of  the  current  loop. 

CREATE  A  SIGN 

From  the  main  menu,  choose  [R]ec 
to  record  the  "script"  for  your  mes- 
sage. You  can  also  use  [R]ec  to  add  to 
an  existing  script.  [L]oad  and  [P]lay 
the  script  you  want  to  add  to,  then 
press  any  key  to  stop  it.  When  the 
main  menu  appears  you  can  then  add 


on  to  the  end  of  the  script  by  press- 
ing [R]. 

The  [R]ec  submenu  has  five 
choices:  [W]rite,  [S]croll,  [P]ause, 
[0]ption,  and  [L]oad.  All  but  the  last 
lead   to   more   submenus.    Choose 
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[W]rite  to  actually  put  things  on  the 
screen.  The  four  choices  in  this  sub- 
menu are  [E]nter,  [P]lace,  [C]lear,  and 
[0]nscreen. 

In  [E]nter  you  can  type  in  up  to  119 
characters  (3  lines),  followed  by  a 
[RETURN].  The  string  you  enter  will 
be  kept  in  a  temporary  buffer  which 
you  can  [P]lace  on  the  screen  one  or 
more  times.  To  cancel  this  operation, 
delete  any  unwanted  text  and  press 
[RETURN]. 

[P]lace  puts  the  string  just  entered 
somewhere  on  or  just  off  the  screen, 
as  directed  in  the  submenu.  Position 
the  text  by  moving  the  cursor  with  the 
joystick  or  arrow  keys.  If  you  selected 
the  [0]nscreen  option  from  the  sub- 
menu, the  string  will  begin  at  the  spot 
you  choose  on  the  screen. 

[C]lear  leads  to  a  submenu  allow- 
ing you  to  clear  a  character,  line,  or 
the  whole  display. 

In  the  [W]rite  submenu,  [0]nscreen 
lets  you  put  single  characters  on  the 
screen,  in  any  position.  The  charac- 
ters will  appear  one  at  a  time,  in  the 
order  entered,  as  the  message  plays. 

You  can  move  the  cursor  with  the 
arrow  keys  or  the  joystick.  [RETURN] 
will  send  the  cursor  to  the  beginning 
of  the  next  row.  The  [DELETE]  key 
will  not  work  here.  Space  over  what 
you  want  deleted  and  edit  it  out  later, 
in  the  [E]dit  menu.  Special  characters 
(those  used  for  the  movement  keys) 


can  be  entered  by  pressing  [ESC]  first, 
then  the  key.  Press  [ESC]  twice  to  exit. 

[L]oad  asks  for  a  filename  and 
records  it  on  the  script.  When  the 
program  reaches  this  instruction 
while  playing  a  script,  it  will  load  the 
new  script  into  the  buffer  and  play  it. 
(If  the  file  cannot  be  found,  the  in- 
struction is  ignored.) 

With  this  command  you  can  set  up 
a  chain  of  files  to  be  played,  and  later 
easily  cut  and  paste  messages  out  of 
or  into  the  chain.  Editing  long  scripts 
can  be  excessively  time-consuming, 
so  it's  a  good  idea  to  separate  mes- 
sages into  different  files  to  keep  scripts 
short. 

[S]croll  moves  a  line  or  the  whole 
screen  horizontally  or  vertically.  If 
you  choose  to  scroll  a  line,  use 
the  joystick  or  arrow  keys  to  position 
the  cursor  over  a  line,  and  press 
[RETURN]  or  the  joystick  button  to 
select  it.  Next  choose  the  distance  to 
scroll  with  the  joystick,  arrow  key  or 
the  [SPACEBAR].  Then  choose  a 
speed. 

[P]ause  records  a  pause  on  the 
script.  The  submenu  offers  sixteen 
lengths  of  pauses — [0]  is  about  seven 
seconds,  [15]  is  about  40.  To  save  time, 
the  pause  won't  play  during  [E]dit 
mode. 

[Ojption  leads  to  some  nifty  effects. 
The  four  choices  are  [Sjhift,  [C]olor, 
[B]link,  and  [M]isc. 

[S]hift  is  a  toggle  between  upper- 
case and  lowercase  for  the  screen  dis- 
play. Graphics  2  only  allows  upper- 
case, numbers  and  punctuation,  or 
lowercase  and  graphics  on  the  screen 
at  one  time. 

[C]olor  lets  you  set  the  colors  and 
brightnesses  of  the  background  and 
the  four  color  registers.  (The  four 
colors  can  be  displayed  by  using  up- 
percase and  lowercase  normal  and  in- 
verse characters.)  The  pointer  starts  at 
the  current  value  in  the  color  and 
luminance  menus.  You  can  include 
many  color  changes  on  a  script. 

[B]link  can  select  one  of  four 
groups  of  characters  and  make  them 
blink  at  varying  speeds.  If  characters 
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are  already  blinking,  use  [Bjlink  a 
second  time  to  stop  them. 

[M]isc  leads  to  [F]ade,  which  fades 
a  character  color  in  or  out,  and  four 
items  which  can  lead  to  user-defined 
routines. 

EDITING  SCRIPTS 

When  you  chose  [E]dit  from  the 
main  menu,  each  instruction  in  the 
script  is  played  one  at  a  time,  then 
listed  in  the  text  window.  After  each 
step  you  can  either  [Cjontinue  to  the 
next  instruction,  [Djelete  the  last 
instruction,  or  [I]nsert  more  instruc- 
tions after  the  last.  The  first  instruc- 
tion shown  is  BEGINNING.  You  can't 
delete  this,  but  you  can  insert  more 
instructions  here,  at  the  very  start  of 
your  script. 

After  you  [D]elete  a  step,  you  may 
either  [Cjontinue  or  add  changes  at 
this  point  with  [Ijnsert.  Because  of 
memory  restrictions,  the  effects  of 
your  deletion  will  not  be  shown  on 


the  screen— you  have  to  play  through 
the  script  again  with  [P]lay  or  [Ejdit 
to  see  the  effects. 

[Ijnsert  leads  to  the  [Rjecord  sub- 
menu. Everything  you  record  is  in- 
serted into  the  script  after  the  last 
instruction  played.  Exit  this  mode  by 
pressing  [ESC]  to  back  up  into  the 
[E]dit  menu. 

MAKING  GRAPHICS 

To  add  graphics  to  your  messages, 
you  will  need  to  first  go  into  the 
alternate  character  set  that  includes 
the  control  characters.  From  the  main 
menu  choose  [R]ec.  From  the  sub- 
menu choose  [0]ption,  then  the 
[S]hift  option.  (Any  text  already  on 
screen  will  be  converted  to  the  alter- 
nate character  set.)  Because  of  the 
limitations  of  Graphics  2,  you  can 
only  use  lowercase  text  with  your 
graphics. 

Press  [ESC]  to  return  to  the  pre- 
vious menu,  and  choose  [W]rite,  then 


[0]nscreen.  In  onscreen  writing,  you 
can  place  characters  one  at  a  time 
where  you  want  them  on  the  screen. 
Using  various  combinations  of  keys, 
you  can  build  graphics  in  four  colors. 
Experiment  to  discover  all  the  possi- 
ble characters  that  result  from  using 
[ESC],  [SHIFT],  [CONTROL]  or  [IN- 
VERSE] with  other  keys. 

Even  if  you  space  over  a  character, 
it  will  reappear  briefly  when  you 
[P]lay  the  message.  To  clean  up  un- 
wanted characters  or  make  some 
changes,  go  into  [E]dit  from  the  main 
menu.  Charaaers  entered  through  on- 
screen writing  will  appear  one  at  a 
time,  giving  you  a  chance  to  delete 
them.  A 

Andrew  Thomas  recently  graduated  from 
Indiana  State  University  with  a  degree 
in  technical  journalism.  His  program 
Quizzer  appeared  in  the  October  1988 
Antic 
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GET  YOURS  FAST 


Super  Bonus  Program! 

Found  only  on  the  disk,  it's  too  large  a  type-in 
program  to  fit  in  the  magazine. 

Plus  all  172K  of  this  month's  Antic  programs  on 
disk.  Great  8-bit  software  without  typing! 

Phone  Toll  Free 

(800)  234-7001 

Phone  orders  by  Visa  or  MasterCard  only 
Ask  for  ADS389 
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24  HOURS 
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SUPPORT  ATARI  PRC 

ATARI  400/800/600/  1200] 


SERIOUS  BUSINESS 


Can  you  really  run  a  business  on  your  Atari?  You 
bet!  TurboBase  from  MicroMiser  is  serious  software 
for  serious  businesses.  It  computerizes  your  whole 
office  with  General  Ledger,  Accounts  Receivable, 
Accounts  Payable,  Payroll,  Inventory,  Point  of 
Sales,  etc.  It's  also  o  REAL  database  with  REAL 
power  to  organize  your  information.  After  giving  up 
on  other  databases,  many  happy  customers  use 
TurboBase  for  its  database  power  alone. 

TurboBase  is  equal  to  anything  running  on  IBM 
PCs,  but  costs  thousands  less.  Hundreds  of  success- 
ful business  are  running  on  TurboBase.  This  is 
a  comprehensive  package;  it's  flexible  and  sophisti- 
cated. Expect  to  spend  about  six  weeks  learning  to 
get  the  most  out  of  it.  Of  course  MicroMiser  pro- 
vides complete  professional  support. 

Now  TurboBase  80  demolishes  the  final  advantage 
of  more  expensive  machines.  It  works  with  the  Atari 
XEP  80  adaptor  to  give  your  work  a  full  80  col- 
umn display.  See  twice  as  much  information  at  a 
glance.  Lay  out  your  reports  and  forms  exactly  as 
they'll  appear  in  print.  If  you  don't  already  have  the 
Atari  XEP  80  adaptor,  we'll  provide  that  for  you, 
too. 

TurboBase  (TH0015) $159.95 

TurboBase  80  (requires  XEP  80)  (TH0016)  $179.95 
Atari  XEP  80,  80  column  adaptor  (TH0017).  $79.95 
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EVERYONE'S  FAVORITE 


SUPERDOS  5.0  supports  all  drives  and  densities 
with  auto-sensing  so  you'll  never  again  worry  about 
mixed  formats.  Plus,  you  get  support  for  RAMdisks 
(up  to  320K),  and  you  can  restore  deleted  files  and 
patch  damaged  ones  and  much  more.  Only  SUPER- 
DOS  5.0  fully  supports  your  new  XF551  disk 
drive,  yet  is  compatible  with  DOS  2.5.  SUPERDOS 
is  the  easiest,  friendliest  DOS  there  is.  See  why 
everyone  loves  SUPERDOS.  Imported  from  Austra- 
lia by  Technical  Support. 
SUPERDOS  5.0  (TH0023) $20.00 


STICKYBEAR 
SAYS  Hi! 


He'll  give  your  kids  a  headstart. 
Pre-schoolers  love  Stickybear, 
and  so  do  their  parents.  He's  the 
most  popular  name  in  young  people's 
software  for  a  reason,  he's  the  best! 
Now  these  fun,  educational  programs 
can  help  your  children  to  grow 
and  develop.  Don't  neglect  the 
benefits  your  computer  offers  your 
little  ones.  Hours  of  excitment  while 
they're  learning  valuable  primary 
skills.  Rated  for  ages  3-6,  but  older 
kids  love  Stickybear,  too.  Order 
now  and  save  1/3!  From  Optimum 
ResourcesAVeekly  Reader. 

Fun  I  eductional  games  for  kids: 

Stickybear  Shapes  (TH0018) just  $19.95 

Stickybear  Numbers  (TH0019) just  $19.95 

Stickybear  Opposites  (TH0020) just  $19.95 

Fun  games  for  kids  to  play  with  their  parents. 
Stickybear  Basketbounce  {TB.0021)  just  $19.95 
Stickybear  Bop  (TH0022) just  $19.95 


..    THE  FINEST  TEXT 

ADVENTURES        (SAVE 

Infocom  always  created  the  greatest 
text  advetures.  Now  the  Antic  ARCADE 
brings  you  four  of  their  best,  at  a  fraction  of 
the  original  prices.  Find  out  for  yourself  why  these 
adventures  have  become  the  most  popular  games  of 
all  time.  From  Mediagenic/Infocom. 

Mindshadow  (TH0024) $29^95'now  $17.95 

Seastalker  (TH0025) $S9:?l^now  $17.95 

Moonmist  (TH0026) $39:35  now  $17.95 

Wishbringer  (TH0027) $39:95  now  $17.95 
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GRA  MERS  -  BUY  SOFTWARE! 

L/600XL/800XL/65XE/130XE/XE  GS 


J  3D  DYNAMITE 


25%  off 


J 


Now  you  can  have  the  kind  of  3D  ability  which  is 
revolutionizing  graphics  on  larger  computers.  With 
Super  3D  Plotter  II  from  Elfin  Magic,  your  8-bit  Atari 
delivers  Cyber  Power.  Plot  complex  solid  objects.  Spin 
them,  rotate  them,  view  them  from  any  angle  or 
distance.  Work  with  a  joystick  or  enter  data  nu- 
merically, or  both.  Super  3D  Plotter  II  is  the  most 
advanced  solid  object  modeling  program  available  on 
any  8-bit  computer.  And  now  the  price's  reduced  25%. 
Super  3D  Plotter  II  (TH0028) $2»:^now  $29.95 


1  COMPUTERIZE  YOUR  HOME 


The  X-10  is  the  most  popular  home  control  system.  And 
no  wonder,  you  don't  need  expensive  rewiring.  X-10 
offers  interfaces  for  all  popular  computers  EXCEPT 
YOUR  ATARI.  Now  Terrific  Corp.  comes  to  the  rescue 
with  the  PowerManager.  It  hooks  your  Atari  to  any  X-10 
interface  designed  for  any  other  computer. 

Now  your  Atari  controls  the  lights,  appliances,  thermo- 
stats, fans,  alarms,  and  anything  else  electrical.  Regu- 
late outside  lighting  for  security,  safety,  and  beauty; 
never  come  home  to  a  dark  house  again.  Control  when 
the  kids  watch  TV.  Manage  your  furnace  and  air  condi- 
tioner, save  money  on  energy  bills.  Software  and  cable. 
(Requires  CP290  Powerhouse  Interface  from  X-10). 
PowerManager  (TH0029) $3»r»5  now  $24.95 


J  PRINT  SHOP 

FONTS  AND  BORDERS 


PS  FONTS 


Everybody's  got  lots  of  Print  Shop  pictures,  but  where  do 
you  find  fonts  and  borders?  Right  here!  We  have  the 
whole  collection  from  No  Frills  Software,  all  four  disks! 

(Requires  Print  Shop  upgraded  with  the  Print  Shop  Companion  and 
XL/XE  with  at  least  64k). 

PS  Fonts  and  Borders  #1  (TH0030) $14.95 

PS  Fonts  and  Borders  #2  (TH0031) $14.95 

PS  Fonts  and  Borders  #3  (TH0032) $14.95 

PS  Fonts  and  Borders  #4  (TH0033) $14.95 

Print  Shop  and  Print  Shop  Companion®  Broderbund  Software 


HALF  PRICE  MIDI! 

Yes,  prices  for  these  fabulous  Hybrid  Arts  hard- 
ware/software systems  are  slashed  in  half.  All  you 
need  to  control  MIDI  from  your  Atari.  MIDI  Track 
controllers  are  the  most  sophisticated  16  track 
sequencer/editors  you  can  get.  Compose,  edit,  and 
play  your  creations.  Use  MIDI  Track  in  your  music 
room,  or  use  it  in  your  concerts.  It's  equal  to  any- 
thing around  -  at  a  fraction  of  the  cost.  Plus  you  can 
instantly  find  and  load  the  exact  sounds  you  want 
with  the  famous  Hybrid  Arts  Patch  Librarians.  So, 
whether  you're  a  garage  band  on  the  way  up,  a 
successful  professional,  or  even  if  your  family  just 
gathers  around  the  keyboards  in  the  evening,  MIDI 
is  your  future  in  music.  And  MIDI  is  Hybrid  Arts. 

MIDI  Track  II  (TH0034) $SB€rnow  $174 

MIDI  Track  III  (128K)  (TH0035)..  $*?»  now  $187 

Plus  these  great  Patch  Librarians: 
MIDI  Patch  CZ  (for  Casio  CZ  keyboards) 

(TH0036) $5:»:9S'«oa;  $39.95 

DX  Editor  (for  Yamaha  DX  Keyboards) 

(TH0037) $il©:g5  now  $59.95 

Gen  Patch  (generic,  for  all  equipment) 

(TH0038) $44»:95  now  $74.50 
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PERSONAL  POWER 

You  paid  for  Player-Missle  Graphics,  Display  List 
Interrupts,  superb  sound,  etc.  -  why  can't  you  use 
them?  Now  you  can!  Advan  BASIC  is  the  most 
powerful  language  ever  created  for  your  Atari. 
But  it's  also  the  easiest  to  use.  Write  high  speed, 
professional-quality,  software.  It's  easy  and  fun. 
Since  it's  BASIC,  it's  very  easy  to  use.  Since  it's 
compiled,  it's  very,  very  fast.  Order  now,  save  25% 

Advan  BASIC  (TH0039) ^SerSS  now  $29.95 

Modules  to  increase  your  productivity: 
Utilities  Pack  (includes  runtime) 

(TH0040) $2»r9f5  now  $24.95 

Screen  Design  (for  the  professional  look) 

(TH0041) $2a,©6-  now  $24.95 

Optimizing  Compiler  (when  speed's  everything) 
(TH0042) 434:95  now  $19.95 
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YOUR  PURCHASES  GUARANTEE  1 


A  PRODUCTIVITY  TOOLS 
TO  KEEP  YOU  AHEAD 


A  EXCITMENT,  CHALLENGE, 
AND  WONDER 


CREATIVE  PROCESS  -  This  amazing  outline 
processor  organizes  your  ideas  for  writing  -  or  for 

anything  else.  (AP0151) $19.95 

SPELL  MAGIC  -  Catch  embarrassing  spelling 
errors  in  your  reports  and  letters.  Works  with  any 

word  processor.  (AP0144) $19.95 

PRINTER  DRIVER  CONSTRUCTION  SET  - 
Make  your  AtariWriter  cartridge  compatible  with 

any  printer.  (AP0131) $19.95 

BACKTALK  1.2  -  The  programmable  macros 
automate  your  telecommunications,  save  you  time 

and  money.  (AP0154) $19.95 

CHAMELEON  TERMINAL  EMULATOR  -  Call  a 
mainframe  with  your  Atari:  TTY,  ADM-3A,  VT-52, 

IBM  3031.  (AP0113) $19.95 

DISK  SCANNER  -  Recover  damaged  or  deleted 
files  on  single  or  double  density  drives. 

(AP0145) $15.95 

SHERLOCK  1050  -  Recover  damaged  or  deleted 
files  on  single  or  enhanced  (dual)  density  drives. 
(AP0155) $19.95 


ORDER    BY    MAIL! 


Send  check  or  money  order  to: 

Antic  Software#MA89, 

544  Second  Street, 

San  Francisco,  CA  94107. 
or  phone  toll  free 

$20.00  minimum  order,  please  include 
$3.00  shipping  and  handling  per  order. 
California  residents  add  6.5%  sales  tax. 


XTAL  (CRYSTAL)  -  Command  a  star  cruiser! 
Detailed  effects  are  everywhere.  More  than  a  game: 
an  epic.  (AP0158) $15.95 

BLUE  TEAM  BRIDGE  -  Tournament  level.  Play  at  any 
time,  improves  your  bidding-or  learn  to  play.  Great 
graphics  (AP0178) $15.95 


ASTROLOGY  -  Create  beautiful  charts  for  your 
family  and  friends.  Imaginative  gifts,  always 

popular.  (AP0167) $15.95 

ATARIORACLE  -  The  computer  OUJI  board. 
Predicts  the  future,  answers  all  questions,  picks 

LOTTO  numbers.  (AP0138) $15.95 

CRIBBAGE  and  SEVEN  CARD  STUD  -  Two 
great  card  games.  The  poker  players  don't  cheat, 

but  they  bluff.  (AP0173) $15.95 

COLOSSUS  CHESS  3.0  -  The  best  Atari  chess 
game  for  the  serious  player,  beginner  or  Grand- 
Master.  (AP0161) $15.95 

PUZZLER  -  Infinite  jigsaw  puzzles,  use  your  own 
pictures.  Set  difiiculty  level  for  any  age  group. 

(APO150) $12.95 

BUMPOMOVS  DOGS  -  A  two-player,  non-violent, 
action  game  you  can  enjoy  with  your  kids.  Great 

family  fun.  (AP0112) $12.95 

BURGERS  -  Computer  fun  for  younger  kids.  If  you 

eat  too  many  burgers,  POP!  (APO109) $12.95 

TAXICAB  HILL  -  Delightfully  chaotic  as  other 
cabbies  steal  your  fares.  Variety  of  neighborhoods, 

great  music.  (AP0137) $15.95 

DIGGERBONK  -  ScrolHng,  multi-screen  arcade 
excitement  for  kids  of  all  ages,  complete  with  a 

Panic  Button.  (APO107) $12.95 

DRAGON'S  QUEST  -  A  wonderful  illustrated 
adventure  game  for  your  entire  family.  Fast  and 

fantastical.  (AP0139) $15.95 

KING  TUT'S  TOMB  and  CONSTRUCTION  SET 
-  48  dangerous,  multi-screen  tombs,  or  construct 

your  own.  (AP0149) $15.95 

LORD  OF  THE  ORB  -  Intense  arcade  action  as 
you  search  the  huge  scrolling  castle  for  the  stolen 

Orb.  (APO103) $15.95 

CHOP  SUEY  -  Joystick-busting,  action-packed, 
martial  arts  excitment.  One  of  our  all-time  best 

sellers.  (AP0162) $15.95 

MARS  MISSION  II  -  Streak  through  the  skies  and 
the  caverns  of  Mars.  Furious  action  is  everywhere. 
(APO120) $15.95 
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800-234-7001 

Visa  MasterCard 


A,  ART  +  MUSIC  +  JOY  = 
COMPUTER  CREATIVITY 


COLOURSPACE  -  The  spectacular  visual  effects 
generator.  Control  your  own  mind-bending  light 

shows.  (AP0166) $15.95 

RAMBRANDT  -  The  best  paint  software,  bar  none. 

Joystick  or  tablet.  Best  seller.  (AP0157) $19.95 

SOLID  OBJECT  MODULE  -  Create  3-D  objects 
automatically,  view  from  any  angle.  (Requires 

RAMbrandt).  (AP0182) $15.95 

PICTURE  PLUS  and  LISTER  PLUS  -  The 
complete  graphics  printing  set.  For  almost  all 

pictures  and  printers  (AP0179) $19.95 

SCREENPLOT  -  Print  Atari  pictures  on  most 
plotters,  including  the  Atari  1020.  (AP0135) ..  $15.95 
ENHANCED  POKEY  PLAYER  -  Compose  music, 
change  it  -  experiment.  Save  the  best.  Add  songs  to 

your  programs.  (AP0147) $15.95 

ENVISION  -  Fills  all  your  character  graphics  needs: 
animation,  fonts,  multi-screen  maps,  much  more. 

(AP0185) $19.95 

GRAPHICS  SHOP  -  Convert  your  own  pictures  to 
use  with  Print  Shop  signs,  banners,  cards,  etc. 
(AP0156) $19.95 


POWER  TOOLS 


BASIC  VIEW  -  BASIC  program  analyzer  and 
debugger.  Write  better  programs,  faster.  For  beginner 

or  expert.  (AP0192) $19.95 

FLOATING  POINT  PACKAGE  and  EXTENDED 
DDT  -  Easy  math  for  MAC/65  and  a  great  assembly 

debugger.  (AP0189) $19.95 

DEEP  BLUE  C  and  MATHLIB  -  Use  C,  the  language 
of  the  future,  now!  Includes  advanced  math  library. 

(AP0188) $19.95 

INTERLISP/65  -  Learn  Artificial  Intelligence 
programming  with  LISP,  available  now  for  your  Atari. 
(AP0191) $19.95 


■■■■■■■■■■■ 


PERSONAL  GROWTH  FOR 
YOU  AND  YOUR  FAMILY 


SPEEDREAD+  -  Double  or  triple  your  reading 
speed.  Read  with  less  effort  and  better  compre- 
hension. Proven  techniques.  (AP0164) $19.95 

MEMOREASE+  -  Memorize  anything  quickly  and 
easily.  Learn  speeches,  songs,  drama  roles,  etc. 

Improve  your  memory.  (AP0163) $19.95 

EARTH  VIEWS  -  An  electronic  globe/atlas  and  an 
exciting  geography  game.  Useful,  educational,  fun. 

(AP0141) $19.95 

MAPWARE  -  Generate  varied  maps  in  4  projections 

for  school,  business,  HAM,  etc.  (AP0134) $19.95 

SPACE  BASE  -  Star  atlas  identifies  objects,  refer- 
ence base  gives  you  detailed  information.  For  all 

ages.  (AP0142) $19.95 

ORBIT:  A  TRIP  TO  THE  MOON  -  Pilot  your  craft 
from  Earth  orbit  to  Lunar  landing.  Learn  space 

navigation.  (APO 168) $15.95 

SARATOGA  -  American  Revolution  strategy  game. 
Detailed,  realistic,  fun.  Full-color  playfield  map. 
(APO104) $15.95 


$10. 
Each 


PUBLIC  DOMAIN 
WINNERS! 


PHOTO  GRAPHICS  -  Great  digitized  pictures  (PD0017) 
ANTIC  FORTH  -  Compact,  fast  programming  language  (PD0020) 
THE  FES  XL  -  Run  older  programs  on  XL/3CE  computers  (PD0026) 
CROCKFORD'S  WHIMSY  -  Magical  disk  for  all  ages  (PD0033) 
CUES  EDPACK  #1  -  Educational  programs  (PD0044) 
CUES  EDPACK  #2  -  More  Educational  programs  (PD0045) 
ASTRONOMY  &  METEROLOGY  Great  for  the  hobbiest  (PD0063) 
130XE  HI-RES  DESIGNER-  GR.8  draw  pgm  for  130XE  (PD0070) 
HEAVY  METAL  ART  -  Spectacular  pictures,  100s  of  colors  (PD0060) 
RAMBRANDT  COLLECTION  -  The  best  RAMbrandt  art  (PD0073) 
STEVE  DONG'S  GALLERY  -  Incl.  Challenger  memorial  (PD0074) 
VTIOO  TERMINAL  EMULATOR  -  Access  mainframes  (PD0037) 
TEK  4010  TERM  EMULATOR  -  For  graphic  mainframes  (PD0083) 

MA  9  A 


SOFTWARE,  ETC. 


FREE  3  1/2  or  5  1/4  DISKETTE  when  you 
purchase  the  Static  Discharge  Button.  Instantly 
grounds  any  static  electricity  your  body  is 
charged  with.  Velcro®  mounted  to  your  com- 
puter workplace.  «9.95  plus  »3.00  P  &  H. 
GAGNON'S  COMPUTERS  Inc. ,  1237  Park  Gar- 
den  Rd.,  Great  Falls,  Montana  39404  (3/89) 
Atari  800/XL/XE  public  domain  disks.  High 
quality  disks,  fast  service,  free  list.  1st  Byte, 
PO  Box  130822,  Tyler,  TX  73713  (3/89) 
Now.instantly  examine  and  modify  programs. 
The  one  and  only  RAMdisk  seaor  editor.  89.95 
Logic  One,  Box  18123,  Cleve.,  OH  44118-0123 

(3/89) 

Try  our  Atari  Public  Domain  Software. 
Special — Eight  Double-Sided  Print  Shop  disks 
only  81995,  or  send  for  free  catalog.  Sagamore 
Software,  2104  Arapahoe  Drive,  Lafayette,  Indi- 
ana  47905  (3/89) 

****** 
BATTERY  BACKED  UP  RAMDISK.  Never 

lose  your  memory.  Boot  from  Ramdisk!  No 
installation.  Ramdisk  cartridge  plugs  into  Atari 
400/800  or  XL/XE.  32K  899.95,  64K  8129.95. 
192K  824995  Certified  check.  Money  order, 
VISA  accepted.  CANOE  COMPUTER  SERV- 
ICES, 11006-155  St.  Edmonton,  AB,  T5P-2N3 
Phone  (403)  437-4619  (3/89) 


****** 

Stop  overpaying  for  RD.  Software!!!  ALL  8-bit 
disks  only  82.00  each,  ST  only  83.00.  Quan- 
tity discounts,  great  selection.  Specify  com- 
puter. Send  large  SASE:  MWPDS,  890  N. 
Huntington  St.,  Medina,  OH  44256  (3/89) 

ENJOY  quality  public  domain  software! 
Games — productivity — utilities — communi- 
cations—more! Catalog  FREE  .  .  .  demo  disk, 
83.00.  Homemade,  6011  Hyde  Park  Circle, 
Suite  203,.)acksonville,  FL  32210  (3/89) 

Discount  Software/Hardware  for  ATARI  8-bit  & 
ST  30%  below  retail  Atari  130XE  8145,  Supra 
20meg-ST  8  579,  AX\RI  XF551  disk  drive  8175 , 
Anchor  2400  baud  modem  8159,  Star  NX-1000 
color  $239.  Send  81  for  20  page  catalog  with 
over  500  titles.  Specify  computer  type.  MULTI 
VIDEO  SERVICES,  Box  246,  E.Amherst,  NY 
14051  Phone  716  688-0469  after  6  pm  (4/89) 

Si's  Fantastic  Selection  of  packed  ATARI  8-bit 
(D-S)/ST  PD  Theme  Disks  is  Far  SUPERIOR  to 
all  other  coUeaions  we've  seen^TRY  US!  Send 
for  MLX  GAMES'GREATEST  HITS  (our  Most 
Popular  title),  plus  Si's  newest  catalog,  for 
8-bit/83.00  or  ST/S4.50.  Catalog  alone  (specify 
system)/S2.00.  SOFTWARE  INFINITY,  642  East 
Waring  Avenue,  State  College,  PA  16801  (3/89) 


MGL  COIMPUTER  WHOLESALERS  BUY- 
SELLTRADE  Used  8  Bit  Computers,  Software, 
Diskdrives,  Modems,  Printers  and  accessories. 
Huge  Public  Domain  Library.  Low  Prices-30 
day  Warranty.  Call  717-267-3205  or  267-2865, 
or  762-6967  For  Prices  and  Complete  List 

(4/89) 

Try  us  for  your  Atari  Public  Domain  software 
needs.  Good  prices,  fast  service.  Write  for  free 
catalog.  Vulcan  Software,  PO  Box  692 
Manassas,  VA  22111-0692(7/89) 

SynFile-h  UTILITY  PROGRAMS.  Print  file  lay- 
out, create  and  save  reports,  undelete  records, 
alter  look-up  tables,  etc.  819.95  plus  82.00 
P&H.  Send  large  SASE  for  more  info.  SEP,  4 
Forest  Drive,  Palmyra,  VA  22963  (5/89) 

AGAPE  GAMES-5  CHRISTIAN  GAMES 

KINGS  GLORY  Arcade  like  Adventure  with  26 
mazes  and  a  maze  maker.  BIBLE  WORD 
SEARCHER  with  30  puzzles  and  a  puzzle  gener- 
ator. Plus  3  games  that  teach  the  Books  of  the 
Bible.  For  Atari  8-bit  (requires  48K-Hdisk) 
»12.95-Daniel  Sharpe,  GPO  911,  Chicopee,  MA 

01021.(3/89) 

Business  Applications  for  your  Atari  ST.  Spread- 
sheet templates,  databases,  word  processors, 
specialized  software.  SASE  for  full  catalog.  ST- 
Land  PDware,  Box  1646,  Orange  Park.,  FL 
32067-1647  (3/89) 


ADVERTISING  SALES 


West  Coast  Advertising  Sales  Representative:  East  Coast  Advertising  Sales  Representative:  Address  all  advertising  materials  to: 


AUSTIN  HOLIAN 

544  Second  Street 

San  Francisco,  CA  94107 

(415)  957-0886 


DAVID  S.  KESTER 

544  Second  Street 

San  Francisco,  CA  94107 

(415)  957-0886 


KATE  MURPHY 

Advertising  Production  Coordinator 
Antic  Magazine 

544  Second  Street 

San  Francisco,  CA  94107 


COMPUTE 

YOUR 

ROOTS 


The  Only  Complete 
Genealogy  Package  For 
Atari  Computer  Systems 


V.ovrvpMta  Ijour  Roots  for  ST' s 

'  Gem  Based  ■  Single  Data  Ent/y  System 

'  Fast.  Multiple  Field  Search  "  Automatic  Pedigree  Linl<s 

■  lJ)S/Non  1_DS  Forms  •  IJedigree  Ctiart 

'  Family  Group  Stieet  •  individual  Entry  Form 

'  Marriage  Entry  Form  '  Custom  Sorted  Lists 

'  Color/Mono  ST  w/  512K  min.    '  Many,  many  more  Features 


Compute  Ijour  Roots  for  8  bits 

■  Pedigree  Ctiatts  "  Cut  &  Paste  Pedigree  Chart 

"  Famify  Group  Sheets  "  Single  or  Double  Density 

*  History  Wrrter  '  Simple  &  Colortul  Menus 
'  Chart  Searcher  "  10  &  15  Inch  Printouts 

*  Requires  48K  A  Dish  Drive  *  Requires  Basic  L^ng.  Cart. 


To  Order  send  Check  or  Money  Order  to  the  Below  Address; 

$37.50  Atari  8  bit  version  $39.95  Atari  ST  version 

VISA/MASTERCARD  Orders  Call  801-483-3357 

Wasatch  Genealogical  Software 

2899  West  7550  South  '  West  Jordan  "  Utah  '  84084 


*  Wev  Pfgductsf  * 

tiiriijvi!  f  inn  -  rtt  iveiFiisivE  wni  vmiU. 
illovs  J  FULI,  single  Itisity  iiii]isk.'  locludts 
lostiuctions  lor  use  »ith;  llaril'tilfr  f  (ru  it's 
progriis  froi  laidisH  I ,  Basit  IS,  DO!  J.0S/2.S, 
KyBjS,  ropBOS,  SpjitjOOS,  lid  nev  SpjttaDOS  I  Cart, 
llso  iicluiJes  ilis*,  fill  of  utilities,  Jxcelliit  for 
disl  lainteiancel  Soliierlng/iiesoliliiing  regilied. 
Price:  }]<.95  |(  SSH  -  see  belnv) 

IfJi  nt  -  J.S"  (7:ilt)  drlre  tjpgrjli  for  tie  JP55I. 
lorks  litli:  KytOS,  SpirlaBOS  iid  nev  SpaitsDOS  I 
Cirl.  illso  rorks  (Jlk/lessI  witli  ill  other  tOS's. 
Ixceiltit  for  llS/taclip  use)  lucluiies:  Ipgrjiie  BOH, 
adapter  cables,  collectors,  and  user  notes.  The  l.v 
drive  lechanisi  and  aomting  cage  are  available 
separately.  Kiniial  solderiig/desoldering  required. 
Price:  j]<.95  |)  SIH  -  see  lielov) 

Skip/Hand:  Idd  53.11  (USJ/IFO/PPOI.  MB  $2.!«  (t/Sil. 
Canadi/Hexico:  idd  $7.H.  Others:  Jiid  (JO. 00  JU. 

le  hare  MNr  ether  l/UHIlS  8-bit  products! 
Call/Krite  for  orr  latest  MSB  catalog. 
See  DS  on  CoipuServe  (Dtl5|  li  itaril, 
fe  tuy/Sell/Trade/lepair  llari  ejiipient. 
le  811/  lAHS/EflOKS.  Cail/Krite  for  guite. 

Innovative     Concepts 
31172  Shavn     Drive 
barren.  Ml   AiOSZ 

Phone;  (312)     293-0130 
CompuServe;  10004,1164 


TIRED  OF  TYPING? 
BUGGED  BY  DEBUGGING? 

(lliT  ALL  Till:  I'ROCiRAMS  WITH  ANTIC  ON  DISK! 

MORE  THAN  40%  OFF  RKGlll./\R  PRICE! 

ANTIC'S  iMAGAZlNE  DISK  ONLY  SS.9S 

(plus  2.00  shipping  and  h;in(lling) 

FOR  SAME  DAY  SERVICE  CALL 

(415)  957-0886  between  8am  and  .-ipin 

Ask  for  the  DISK  DESK. 

Use  your  Visa  or  Mastercard. 

Or  send  check  or  money  order  to: 

ANTIC  PIIBLISHINC 

S44-2ND  ST 

SAN  FRANCISCO,  CA  94107 
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May  1989 


Insertion  Orders:  January  30 
Artwork:  February  6 

On  Sale:  Last  week  of  March 


June  1989 
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Antic  Classifieds 

544  Second  Street,  San  I'rancisco.  CA  94017 
Telephone  (4IS)  9S"'-()8H6 


NllllK- 

C:i)nip:iny 
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Hxpiruiion  Date 
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Enclosed  is  my  paunciii  for  S_ 


[ssuc(.s)  .Vl  to  ApptMi 


RATE:  Sl.(K)  PER  WORD— twenty  (20)  word  minimum. 

BOLDFACE:  Add  S7.5()  per  line  for  boldface  words  or  add  S40.00  for  the  entire  ad  set 
in  boldface  (any  number  of  lines). 

STARS:  Add  S6.5()  for  one  (1)  line  of  six  (6)  stais  ••••••  at  top  of  ad. 
TERMS:  Prepayment  is  required.  Check,  Money  Order,  Visa  or  MasterCard  is 
accepted.  Make  check  payable  to  Antic  Publishing. 

FORMS:  Ads  are  subject  to  publisher's  approval  and  MUST  BE  TYPED.  Please  underline 
words  to  be  set  in  boldface. 

GENERAL  rNFORMATlON:  Advertisers  using  Post  Office  Box  numbers  in  their  ads  must 
supply  permanent  address  and  telephone  numbers.  Ad  will  appear  in  the  next  avail- 
able issue  after  receipt  unless  otherwise  specified. 

DEADLINE:  90  days  prior  to  cover  date  (e.g.,  December  1988  closes  September  I, 
1988 — December  issue  on  sale  November  1,  1988). 

Clip  this  coupon,  attacli  to  typewritten  copy  and  send  with  remittance  to  address  on 
the  left. 

HANDWRITTEN  COPY  WILL  NOT  BE  ACCEPTED 


AN  AD  IN  ANTIC  REACHES  MORE  THAN  100,000  SERIOUS  ATARI  USERS 


Tech  Tips 


The  following  three  Tech  Tips  come  from  Greg  Vozzo  of 
Brightwaters,  New  York. 


RJ 
IM 


148  REM  H  =  NUMBER  OK  HORIZONTflL  ROWS  IN 

SELECTED  GRAPHICS  MODE. 
150  REM  ROMS^NUMBER  OF  ROMS  USED  BV 

TEXT  . 


M/L  START-OVER 

If  you  want  to  restart  a  machine  language  program,  you 
must  reboot  the  computer,  right?  Wrong!  This  short 
program  lets  you  restart  your  machine  language  pro- 
gram just  by  pressing  the  [RESET]  key.  It  will  also  run  short 
machine  language  subroutines  before  entering  BASIC.  To 
disable  the  M/L  Start-Over  routine,  either  hold  down  [SE- 
LECT] after  pressing  [RESET]  until  the  READY  prompt  ap- 
pears, or  POKE  anything  except  a  1  into  memory  loca- 
tion 1791.  Be  SURE  that  your  machine  language  routine 
doesn't  use  Page  6. 

t^ 
nc 


ZJ 


DB 


IX 


Don't  type  thie 
TYPO  II  Codes! 

10B  FOR  I=l?68  TO  179e!REftD  fliPOKE  I, ft 
:NEXT  I:FOR  1=1536  TO  1568!REnD  ft : PUKE 

I,ft:NEXT  I:fi=U5Rcl536J 
200  FOR  1=1536  TO  1560 = POKE  I,0:NEXT  I 
:?  "ML  nUTORUN  PRUGRftM  INSTftLLED  .  "  =  ?  " 
PRESS  liilJ^HHM  TO  ftCTIUftTE."!  NEW 
500  DftTO  32,252.6,173,255,6.201,1.208, 
10. 173, 31, 208, 201, 5, 24 0,3, 168, 253, 6, 96 
,linill,lilM[r|[il 

600  DftTfi  104,169,1,141,255,6,165,12,14 
1.233, 6, 165. 13, 14 1,2 34, 6. 169, 232, 133,1 
2,169,6,133,13,96 


TEXT  CENTRAL 

This  routine  shows  you  how  to  center  your  text 
on  a  Graphics  0  screen.  In  lines  65-66,  if  the  cur- 
sor is  already  in  the  correct  row,  then  Instead 
of  using  POSITION  X,Y,  you  can  use  POKE  85,X  to 
set  the  X  position.  The  last  REM  statements  describe 
how  to  enter  several  lines  of  text  vertically.  These 
can  be  combined  with  horizontal  centering. 

LX 
TL 

cn 

TS 
SR 
TK 


VO 

sx 

JG 
IG 
TU 
XL 
GZ 
ML 
QC 


Don't  type  the 
TYPO  II  Codes' 

5  REM  TO 
10  GRAPH 
15  POKE 
20  C0L=4 
30  V=ll: 
40  DIM  T 
••:REM  TE 
50  X=INT 
STftRTIN 
60  POSIT 

65  REM  0 

66  REM  A 
70  GOTO 
100  REM 
lie  REM 
120  REM 
130  HEM 

LINE. 


CEN 
IC5 
752, 
0:RE 
REM 
EXTS 
XT  T 
t  ceo 
G  X 
ION 
R.  .  . 
LREft 
70 

TO  C 
USE 

Y  =  IN 

Y  =  Y 


TER  TEX 
0 :REM  U 
l:REM  D 
M  »  OF 
V  COORD 
C14> : TE 
0  CENTE 
L-LENCT 
COORDIN 
X, Y !?  T 
POKE  8 
DY  ftT  T 

ENTER  U 
THIS  FO 
T  CCR-RO 
COORDIN 


T  HORIZONTALLY 

SE  ANY  MODE 

ISABLE  CURSOR 

UEHTICAL  COLUMNS 

INATE 

XTS="ftNTIC  MAGAZINE 

R 

EXTSJ»/'2J  !REM  FIND 

ATE 

EXTS:REM  PRINT 

5,X  IF  CURSOR  IS 

HE  Y  COORDINATE 

ERTICALLY, 

RMULA : 

MS>/2> 

ATE  OF  FIRST  TEXT 


TUNING  VIDEO  COLORS 

Having  a  tough  time  tuning  your  Atari's  16  colors 
correctly?  This  short  program  draws  the  16  colors  in 
horizontal  bands,  in  ascending  order  from  0  to  15- 

10  GRAPHICS  11. FOR  1=1  TO  15:COLOR  I.FOR 
J =1*10  TO  I*  10 +  8: PLOT  0,  J.DRAWTO  79,  J:  NEXT 
J:NEXT  I  20  GOTO  20 

Refer  to  the  following  Color  Table  as  you  adjust  the 
color  and  tint  controls  on  your  monitor  or  television  set. 


HUE# 

COLOR 

0 

Gray 

1 

Gold 

2 

Orange 

3 

Red-orange 

4 

Pink 

5 

Pink-purple 

6 

Purple-blue 

7 

Blue 

8 

Blue 

9 

Light  blue 

10 

Turquoise 

11 

Green-blue 

12 

Green 

13 

Yellow-green 

14 

Orange-green 

15 

Light  orange 

This  Color  Band  program  requires  that  your  Atari 
have  a  GTIA  chip,  which  was  not  in  some  of  the  older 
pre-XL  Atari  units  To  test  your  computer,  type  POKE 
623,64 — and  if  the  screen  turns  black,  you  have  GTIA. 
A  blue  screen  means  you  don't. 


Antic  pays  $25  for  every  original  and  exclusive  Tech 
Tip  submission  that  we  publish.  Send  your  8-bit  or  ST 
disk  and  printout  to:  Antic  Tech  Tips,  544  Second 
Street,  San  Francisco,  CA  94107.  Tech  Tips  welcomes 
very  short  programs  that  demonstrate  the  Atari's 
powers,  simple  hardware  modifications,  or  useful 
macros  for  popular  software. 
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ANTIC,  THE  ATARI  RESOURCE 


Software  Discounters 
OF  America 


S.D.  of  A. 


USA/Canada  Orders— 1-800-225-7638 
PA  Orders— 1-800-223-7784 
Customer  Service  412-361-5291 


Free  shipping  on  orders 

over  $100  in  continental  USA 

No  Surcharge  for  VISA/MasterCard 

Your  Card  is  not  charged  until  we  ship 


ACCESS 

Leader  Board  Golf  & 

Tourn.  Disk  (D) $9.88 

Leader  Board  Golf  &  Tourn. 

Disk  #1  ST $16 

Tenlh  Frame  ST $25 

Triple  Pack:  BH1,  BH2,  Raid 

Over  Moscow  (D)    $14 

ACCOLADE 

Bubble  Ghost  ST $23 

Fighl  Night  (D) $14 

Hardball  (D) $14 

Mini  Putt  ST $23 

Test  Drive  ST $25 

ACTIVISION 
Cross  Country 

Road  Race  (D) $9.88 

Ghostbusters  (D)    $9.88 

Music  Studio  (D) $23 

AMERICAN  EDUCATION 

Biology  (D) $12 

Grammar  (D) $12 

Science  (D) Call 

U.S.  Geography  (D) $12 

U.S.  History  (D) $12 

Vocabulary  (D)    $12 

World  History  (D) $12 

ANTIC 

A-Calc  Prime  ST $25 

A-Charl  ST $19 

Cyber  Paint  2.0  ST $49 

Cyber  Sculpt  ST $59 

Cyber  Texture  ST $33 

Flash  ST $19 

Phasar  3.0  ST $59 

Spectrum  512  ST $44 

ARTWORX 

Bridge  5.0  (D) $19 

Bridge  5.0  ST $23 

Cycle  Knight  (D) $14 

Linkword  French  (D) $16 

Linkword  French 

I  or  2  ST $19  Ea. 

Linkword  German  (D)  .  .  .  .$16 

Linkword  Russian  ST $19 

Linkword  Spanish  (D)   ...  .$16 

Linkword  Spanish  ST $19 

Strip  Poker  (D)  $21 

Strip  Poker  2  ST $25 

Female  Data  Disk  1(D)  .  .  .$14 

Male  Data  Disk  2(D) $14 

Female  Data  Disk  3(D)  .  .  .$14 
Female  Data  Disk#4  ST.  .  .$14 
Female  Data  Disk#5  ST.  .  .$14 
AUDIO  LIGHT 


Music  Studio  '88  ST $39 

BATTERIES  INCLUDED 


Degas  Elite  ST $39 

BRODERBUND 


Karateka  (D) $9.88 

Karateka  ST $23 

Loderunner  (D) $9.88 

Print  Shop  (D) $26 

Print  Shop  Graphics 

Library#l,  *2,  #3  (D)  $16.  Ea. 
PS.  Companion  64K  (D)  .  .$23 

Sky  Chase  ST $25 

Super  Bike  Challenge  ST  .  .$14 
CENTRAL  POINT 

Copy  2  ST $23 

CINEMAWARE 

Defender  of  the  Crown  ST  $33 

S.D.I.  ST   $33 

Sinbad:  Throne  of 

the  Falcon  ST $33 

CODE  HEAD 

Multi-Desk  ST $19 

DATASOFT 


The  City  (D) $19 

The  City  ST $26 

The  Dungeon  (D) $19 

Bismarck  ST    $26 

Firezone  ST Call 

Global  Commander  ST  .  .  .$26 
Hunt  for  Red  October  (D)  Call 
Hunt  for  Red  October  ST  .$32 

Tomahawk  64K  (D) $21 

Video  Title  Shop  64K  (D)  .$21 
DAVIDSON 

Math  Blaster  (D) $32 

Spell  It  (D)    $32 

Word  Attack  (D) $32 

ELECTRONIC  ARTS 
Software  Classic  Series: 
Financial  Cookbook  (D)    $6.88 
Lords  of  Conquest  (D)  .  .$9.88 

Movie  Maker  (D) $9.88 

Music  Const.  Set  (D)  .  .  .  $9.88 
Pinball  Const.  Set  (D)  .  .$9.88 
Seven  Cities  of  Gold  (D)  $9.88 
Super  Boulder  Dash  (D).$9.88 
ELECTRONIC  ARTS 
Arcticfox  ST $14 


Final  Assault  ST $33 

Impossible  Mission  2  ST  .  .$33 

Metrocross  ST $16 

Space  Station  Oblivion  ST  $33 

Summer  Games  (D) $14 

Technocop  ST Call 

Temple  Apshai  (D) $9.88 

Temple  Apshai  Trilogy  ST  .$14 

Tower  Toppler  ST   $33 

Winter  Games  ST $14 

World  Games  ST $14 

EOUAL  PLUS 

Financial  Plus  ST $129 

FORESIGHT 

Draphix  ST $119 

Draphix  Data  Plotter  ST  .  .$29 
FTL 

Dungeonmaster  ST $25 

Oids  ST $23 

Sundog  ST $23 

GAMESTAR 

Champ.  Football  ST $25 

GRIBNIF 

Neo  Desk  ST $19 


Vegas  Craps  ST $23 

Vegas  Gambler  ST $23 

MASTERTRONIC 

Chopper  X  ST $14 

Ninja  (D)   $4.88 

Ninja  Mission  ST $14 

The  Last  V8  (D) $4.88 

Vegas  Poker  & 

lackpot(D) $4.88 

MECAMAX 

Laser  C  ST $129 

MICHTRON 

Airball  ST $25 

Airball  Const.  Set  ST $16 

C.  Breeze  ST $33 

CFA  Artist  ST $49 

CFA  Basic  Book  ST $25 

CFA  Basic  Int.  3.0  ST $65 

CFA  Basic  Compiler  ST.  .    $39 

Coldrunner  2  ST $25 

Int'l.  Soccer  ST $25 

Juggler  ST $33 

Leatherneck  ST $25 

Master  CAD  ST $129 

Stuff  ST $25 


Harrier  Combat  Sim.  ST  .  .$33 
Indiana  Jones  &  The 
Temple  of  Doom  ST ...  .  $33 

Infiltrator  64K  (D) $19 

Into  the  Eagle's  Nest  ST  .  .$25 

loker  Poker  ST    $33 

Out  Run  ST $33 

Road  Raider  ST $33 

Road  Runner  ST $33 

720  ST Call 

Shadowgate  ST $33 

Space  Harrier  ST $33 

Super  Star  Hockey  ST $33 

Uninvited  ST $33 

•Requires  Gauntlet! 
OMNITREND 

Breach  ST $25 

Breach  Scenario  Disk  ST.  .$16 

Paladin  ST $25 

Quest  Disk  for  Paladin  ST. $16 

Universe  2  ST $33 

ORIGIN 

Autoduel  (D)  or  ST $25 

Moebius  ST $25 

Quest  for  Clues  (Book)  .  .    $19 


MINDSCAPE      INC 


This  is  the  real  thing.  You're 
flying  this  mission  solo  into 
territory  that's  as  hostile  as 
it  gets. 

Harrier  Combat  Simulator 

List  $49.95 

Our  Discount  Price  $33 


For  the  Atari  ST 


Alternate  Reality: 


Awesome  Arcade  Pack  ST. $32 

Bard's  Tale  ST $32 

Chessmaster  2000  (D) $26 

Chessmaster  2000  ST $29 

Double  Dragon  ST Call 

Empire  ST $32 

Financial  Cookbook  ST    .$9.88 
Lords  of  Conquest  ST   ....  $14 

Marble  Madness  ST    $26 

Mavis  Beacon  Teaches 

Typing  ST $32 

Music  Const.  Set  ST $32 

Roadwars  ST $21 

Rockford  ST $21 

Scrabble  ST $26 

Scruples  ST $26 

Star  Fleet  1  ST  $35 

Star  Fleet  1  (D) $32 

Zany  Golf  ST    Call 

EPYX 

Art  &  Film  Director  ST  .  .  .$49 

Battleship  ST $19 

California  Games  ST $33 

Champ.  Wrestling  ST $14 

Dive  Bomber  ST $33 


HIGH-TECH  EXPRESSIONS 

Astro-Grover  (D) $6.88 

Award  Ware  (D) $9.88 

Big  Bird's  Spc.  Delivery  (D)  SbM 
Ernie's  Magic  Shapes  (D)  $6.88 

Print  Power  (D)   $9.88 

Sesame  St.  Print  Kit  (D)  .$9.88 

•All  HiTech  req.  64K! 

ICD 

PR  Connection $59 

Rambo  XL $29 

US  Doubler: 

with  Sparta  DOS $49 

without  Sparta  DOS   .  .  .$29 
INTERSECT 

Interlink  ST $25 

Revolver  ST $33 

ISD 

Dyna  Cadd  ST $447 

Masterplan  ST $59 

Vip  Professional  ST $95 

LDW 

Basic  Compiler  2.0  ST  .  .  .$59 
Club  Backgammon  ST .  .  .  .$23 
Power  Spreadsheet  ST $95 


Tanglewood  ST $25 

Tetra  Quest  ST  $25 

Time  Bandit  ST $25 

Tune  Up  ST $33 

MICROLEACUE 

Baseball  (D) $25 

Baseball  2  ST   $39 

Box  Score  Stats  (D) $15 

General  Manager  (D)  or  ST  .  $19 
1987  Team  Data  (D)  or  ST  $14 
MICROPROSE 

FIS  Strike  Eagle  (D) $23 

F15  Strike  Eagle  ST $25 

Cunship  ST $33 

Silent  Service  (D) $23 

Silent  Service  ST $25 

MINDSCAPE 

Alien  Syndrome  ST Call 

Balance  of  Power  ST $33 

Blockbuster  ST $25 

Bop  &  Wrestle  64K  (D) .  .  .$19 

Captain  Blood  ST $33 

De  la  Vu  ST    $33 

•Deeper  Dungeons  (D)  .  .  .$16 

Gauntlet  ST $33 

Gauntlet  64K  (D)   $23 


Ultima  3  (D)  or  ST $25 

Ultima  4  (D)  or  ST $39 

PROGRESSIVE 

Superbase  Professional  ST$189 

PROSPER(5 

First  Word  Plus  ST Call 

QMI 

Desk  Cart  ST $59 

ST  Talk  Professional $19 

RAINBIRD 

Black  Lamp  ST $19 

Carrier  Command  ST  .  .  .  .$29 

Corruption  ST $29 

Elite  ST $23 

Guild  of  Thieves  ST   $29 

linxter  ST    $25 

Starglider  2  ST    $29 

The  Pawn  ST $19 

Universal  Military 

Simulator  ST    $33 

Virus  ST $19 

REEVE 

Diamond  OS  (D) $19 

SIERRA 

Black  Cauldron  ST   $25 


King's  Quest 

1,  2,  or  3  ST $33  Ea. 

Leisure  Suit  Larry  ST $25 

Manhunter  ST $33 

Mixed-Up  Mother  Goose  ST$19 

Police  Quest  ST    $33 

Space  Quest  1  or  2  ST  $33  Ea. 
SIMON  &  SCHUSTER 

Star  Trek  ST $25 

SOFTREK 

Turbo  ST $33 

SPRINGBOARD 

Certificate  Maker  ST $25 

CM.  Library#1  ST $19 

Newsroom  64K  (D) $33 

SSI 

Advanced  Dungeons  & 
Dragon:  Heroes  of  the 

Lance  ST $26 

Phantasie  1,  2  or  3  ST   .  .    $26 

Questron  2  ST $32 

Rings  of  Zilfin  ST $26 

Roadwar  Europa  ST    $29 

Roadwar  2000  ST $26 

Stellar  Crusade  ST $39 

War  Game  Const.  Set  (D)  .$19 
War  Game  Const.  Set  ST  .$23 

Warship  ST $39 

Wizard's  Crown  (D)  or  ST  $26 
SUBLOGIC 

Flight  Sim.  2  ST    $33 

F.S.  Scenery  Disks Call 

let  ST $33 

THREE  SIXTY 

Dark  Castle  ST $25 

Warlock  ST $23 

THUNDER  MOUNTAIN 
Summer  Challenge  ST  .  .  $9.88 

Tau  Ceti  ST $9.88 

Top  Gun  ST $9.88 

Winter  Challenge  ST   .  .    $9.88 

Wizball  ST $9.88 

TIMEWORKS 

Data  Manager  ST $49 

Desktop  Publisher  ST  ...  .$87 
D.P.  Clip  Art: 

Design  Ideas  ST $25 

Education  Graphics  ST  .$25 
People,  Places  &  Things  ST$25 
Symbols  &  Slogans  ST  .    $25 

Partner  ST $33 

Swiftcalc  ST   S49 

Word  Writer  ST    S49 

UNISON  WORLD 

Art  Gallery:  Fantasy  ST  .  .  .$19 

Art  Gallery  1  or  2  ST  .$19  Ea. 

Print  Master  Plus  ST $25 

P.M.  Fonts  &  Borders  ST  .  .  $23 
VERSASOFT 

db  Man  V5.0  ST    $149 

MARK  WILLIAMS 

C  Source  Dedugger  ST  .  .  .$44 

Mark  Williams  C  ST $119 

WORD  PERFECT 

WP  Word  Processor  ST   .  .  Call 

ACCESSORIES 

Bonus  5'A  SS,  DD    .  .$4.99  BX 

Bonus  5'/4  DS,  DD  .  .$5.99  BX 

CompuServe  Starter  Kit  .  .  .$19 

Disk  Drive  Cleaner $5.88 

Epyx  200  XI  loystick $12 

Epyx  500  X|  loystick S14 

IMG  Scan  ST $65 

Indus  GT  Drive Call 

Supra  Hard  Drives Call 

Supra  Modems Call 

Wico  Bat  Handle $17 

Wico  Boss   $12 

Wico  Ergostick    $19 

Wico  Red  Ball $17 


P.O.  BOX  111327  —  DEPT.  AT  —  BLAWNOX,  PA  15238 


•Please  Read  The  Following  Ordering  Terms  &  Conditions  Carefully  Before  Placing  Your  Order:  Orders  with  cashiers  check  or  money  order  shipped  immediately  on  in  stock  items!  Personal  &  Company 
checks,  allow  3  weeks  clearance.  No  C.O.D.'s!  Shipping:  Continental  U.S.A.-Orders  under  $100  add  $3;  free  shipping  on  orders  over  $100.  AK,  HI,  FPO,  APO-add  $5  on  all  orders.  Canada  &  Puerto 
Rico-add  $7.50  on  all  orders.  Sorry,  no  other  Inlernational  orders  accepted!  PA  residents  add  6%  sales  tax  on  the  total  amount  of  order  including  shipping  charges.  CUSTOMER  SERVICE  HOURS:  Mon.-Fri. 
9  AM-5:30  PM  Eastern  Time.  REASONS  FOR  CALLING  CUSTOMER  SERVICE— 412-361-5291  (l)Slatus  of  order  or  back  order  (2)if  any  merchandise  purchased  within  60  days  from  S.D.of  A.  is  defective, 
please  call  for  a  return  authorization  number.  We  will  not  process  a  return  without  a  return  auth.  #!  Defective  merchandise  will  be  replaced  with  the  same  merchandise  only.  Other  returns  subject 
to  a  20%  restocking  charge!  After  60  days  from  your  purchase  date,  please  refer  to  the  warranty  Included  with  the  product  purchased  &  return  directly  to  the  manufacturer.  Customer  service  will 
not  accept  collect  calls  or  calls  on  S.D.of  A.'s  800#  order  lines!  Prices  &  availability  are  subject  to  change!  New  titles  are  arriving  dailyl  Please  call  for  more  information.  ORDER  LINE  HOURS:  Mon.-Thurs. 
9:00  AM-7:00  PM  Fri.  9:00  AM-5:30  PM  Sal.  10:00  AM-4:00  PM  Eastern  Time. 
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MENACE  is  a  pure  arcade  game  —  a  fast  action  packed  journey 
througli  six  very  different  worlds  where  liglitning  fast  reflexes  and 
furious  fire  button  action  are  your  only  hope  of  survival. 

Your  mission  orders  are  simple,  you  must  destroy  the  planet 
Draconia.  In  theory  possible,  in  practice  .  .  . 

The  planet  Draconia,  an  unnatural  planet,  has  been  formed  over 
many  centuries  by  six  of  the  most  feared  rulers  that  have  ever 
existed.  These  rulers,  exiled  from  their  home  galaxy,  have  ravaged 
and  plundered  space,  using  the  worlds  they  have  destroyed  and  the 
life  forms  they  have  created  to  build  this  planet  of  fear  and  death. 

Now  an  end  must  be  put  to  their  reign  of  terror.  A  large  scale  attack 
will  prove  too  costly  to  our  space  fleets.  Draconia  has  many  orbiting 
defence  systems,  the  sacrifice  may  be  in  thousands  of  lives.  A  single 
fighter  craft,  approaching  undetected,  may  have  a  chance  to  avenge 
those  who  have  perished,  by  destroying  Draconia.  You  have  that 
chance . . . 

AMIGA/ATARI  ST  —$29.95 


ADDICTIVE  ARCADE  ACTION 

PSYCLAPSE  —  A  NEW  LABEL  FROM  PSYGNOSIS 


COMPUTER 
SOFTWARE 
SERVICE 


2150  Executive  Drive 

Addison  Illinois  60101 

Toll  Free:  1-800-422-4912 

In  Illinois:  1-800-331-SOFT 


